Perl Gui Programming Book page:-(2) 


ChO01:- Introdction ................. 3 

Ch:02:- Labels ................... 4 
Ch:03:- ButfONS ............... 11 
Ch:04:- Entry 

Ch:05:- Scrollbars_.................. 
Ch:06:- List BOX ............. 
Ch:O07:- Text 


Ch:08:- tag Configure 
Ch;O09:- Scale ............... 


Ch:10:- Frames I[oplevel/S ................................... sss (64) 
a E LS 68 


Og LN O O ay 105 


Ch:13:- last touch ............. a 117 


Perl Gui Programming Book page:-(3) 


في هذا الكتاب سوف نتطرق الى برمجة الواجهات الرسومية في لغة البيرل من خلال استعمال الموديل الخاص 
بهذه العملية وهو الموديل المعروف باسم ال(7۸) 


هذا الموديل متوفر على شبكة ال 

WWW.Cpan.ordg 
وهي الشبكة المتخصصة في نشر كل الموديلات الخاصة في لغة البيرل و الان بعد ان قمت بتحميل الموديل من‎ 
الانترنت ما عليك سوى ان تنصبه من خلال خطوات تنصيب الموديل وذلك كما يلي بعد ان تفتح كبس الموديلوبعد‎ 
ذلك تقوم بتنصيبه على جهازك وکما يلي‎ 


1-perl Makefile. PL 
2-make 
3-make Install 


ومن بعد ان تقوم بهذه الخطوات سوف يتم تنصيب الموديل لديك وتقدر ان تبرمج به كما تحب 
تسمية الموديل(7۸) 
Tool Kit‏ 
كما ايضا لاحظت في الاعداد السابقة لم اعطي الاسم المختصر للغة البيرل لا ادري لماذا ولكن على كل كلمة بيرل 
هي مختصر أكلمة 

Practical Extraction and Report Language 
اما عن برمجة الواجهات الرسومية كما يعلم الكل فأنها مختصر لكلمة‎ 

Graphical User Interface 


واما عن هذا الكتاب فأنه يحتوي على اغلب المكونات التي تأتي مع الموديل(7۸) 
وعندما قمت بكتابة الكتاب قررت انه بعد الانتهاء من الكتاب راح انزل ان شاء الله ملحق يضم ال 

Very advanced methods of Tk programming |‏ 
وعلى طول فترة قراتك للكتاب لن تلاحظ على ما اظن وجود شئ يصعب عليكم لانه اغلب البرامج التي تم 
استعمالها هي برامج سهلة وتم شرحها شرح مفصل مع الصور الناتجة عن تنفيذ هذه البرامج 


الخطوة الاولى و البرنامج الأول من برمجة الواجهات الرسومية 


البرنامج الاول 
CODE)‏ 
use TK; #1‏ 
$top=MainWindow->new; #2‏ 
$a=$top-> Label( -text => "Hello world" #3‏ 
J #4‏ 
$a-> pack; #5‏ 
MainLoop; #6‏ 
الان سوف نأتي على على شرح هذا الكود 
لكي نعرف ما هي المبادئ الاسااسية التي يعتمد عليها البرنامج لكي يتم عرضه بهذا الصورة 
الان سوف نأتي الى تسلسل الخطوات 
الخطوة الاولى 
CODE(2)‏ 
use TK;‏ 


الان دا خان هد هي الط الول لے من خلال ت انراد ال فت الاا و رر قات اص و 
TT‏ 

شئ مهم تجدر الاشارة اليه هي انه هذه الموديلات التي يتم كتابتها بالشكل الذي كتبت فيه اي انه الحرف الاول 
منها هو حرف دو مستوی کبیر 

وان اي تغیير فيه هو سوف يؤدي الى حصول اخطاء كثيرة وبالتالي الى عدم تنفيذ البرنامج 


الخطوة الثانية 
CODE(S)‏ 


Ştop=MainWindow->new; 


هذه كما هو ملاحظ انها الخطوة الثانية من خطوات برمجة البرنامج على كل ان عمل هذه الخطوة هو انه تعمل 
على تصميم النافذة الاساسية الكبيرة التي يتم بداخلها عرض ما قد قمت ببرمجته لكي يتم عرضه 
ومن الملاحظ ان هذا السطر يحتوي على متغير يعمل على اسناد قيمة للقيمة المسئولة عن عرض الشاشة الكبيرة 
الخاصة في البرنامج 
ير جى ملاحظة (Main Win dow )ةnأك j|‏ 
كل من الحرفان الاولان من كل كلمة هو حرف كبير لذا يرجى الانتباه 
الخطوة التالثة 
CODE(4)‏ 
$a=$top-> Label ( -text => "Hello world"‏ 
J;‏ 


هذا السطر يعمل على وضع اول(1عول/w)‏ 
في البرنامج الاساسي وذلك بناء على طلب من ال (لابل) 
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والدي يحتوي علی ما یسمی بالشاهد الدي يحتوي علی خیار (text)Jl‏ 

والنص الذي ترغب في ان يتم عرضه على النافذة الاساسية للبرنامج ولكن لاحظ اننا نقول اننا نعرض ولا نطبع 
لانه لو تم طباعته سوف ما كانت سوف تتم عملية العرض لانه ايضا نلاحظ على طول البرنامج انه لاتوجد كلمة 
اطبع 

وان خیار ال t×م))‏ 

الذي اسندت اليه ان يتم عرض كلمة 

(hello world) 

ومن الممكن ان يتم اسناد اي قيمة اخرى غير تلك القيمة 


الخطوة الخامسة 
CODE(S)‏ 
$a-> pack;‏ 
ان يدير المتغير و يعمل على حزمه استعدادا لكي يتم عرضه في نافذة جديدة 
الخطوة السادسة 
CODE(0)‏ 
MainLoop;‏ 
هذا الخطوة تكون مسئولة 


والان بعد ان تمت كاتبة البرنامج كله كان لابد من ان يوجد خطوة تعمل على اخذ جميع هذه الخطوات البرمجية 
السابقة وان تعمل على ان يتم ادخالها في حبكة برمجية واحدة لكي يفهم المترجم الخاص بلغة البيرل ما هو 
المطلوب منه و الذي هو سوف يکون بصدد عرضه 

والان بعد ان انتهينا من كاتبة البرنامج وفهمنا ما هو عمل جميع هذه الخطوات سوف نقوم بتنفيذ البرنامج لكي 
نرى ماهو ناتج التنفيذ والناتج موضح في الصورة التالية 


ات 
Hello vroridl‏ 


FIGURE) 
الان كما تلاحظ انه هذا البرنامج الذي قمنا بكتابته قبل قليل وهذا هو ناتج التنفيذ الخاص به‎ 
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How to create a perl Program wıth title name 
البرنامج السابق الذي سبق ان تم عرضه نلاحظ في الشريط الاعلى لهذا البرنامج انه توجد‎ e 
رة لشكل يشبه حرف الاكس في اللغة الانكليزية الى جانبها علامة هي علامة الشرطة او علامة ال‎ 


الان لو كنت ترغب ان يتم ان يحمل برنامجك اسم ويكون له اسم فان العملية و البرنامج سوف يكون كما يلي في 
هذا الكود 
"CODE(7)‏ 
use TK;‏ 
Ştop=MainWindow->new;‏ 
$a=$top-> Label( -text = > "Hello World"‏ 


J 
Ş$top->title("Programming-fr34ks.net"); 
$a-> pack; 

MainLoop; 


والان ا E e ey‏ ھی کن فى لحار الذي 

E ME TET‏ ااا د ا 
ا راي 

Teng 

دا اغا ا( 


٣ wf  . Programming-fr34ks.net 
Hello orld 


FIGURED) 
ان دک بد ان تھ فف اترتا بتكل كال لاح انه الان اض يحمل ال الى فة باه عاو حك‎ 
يمكن القول انه خطوة بسيطة ومن الجميل ان نطلق على كل برنامج من هذا النوع اسم خاص به‎ 
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some advanced features on label 
)aاط6/(لا الان سوف نتناول بعض الخواص المتقدمة التي تعود الى‎ 
الخاصية الاولى‎ 
وهي الخاصية الخاصة بالتلوين وان التلوين يكون على نوعين الان سوف ناخذ الخاصية الاولى من التلوين لكي‎ 
نرى ماهو ناتج التنفيذ كما في هذا الكود الاتي‎ 
CODE(S) 
use TK; 
$top=MainWindow->new; 
$a=$top-> Label( -text => "Hello World", 
-background => "red" 


J 
Stop-> title("Programming-fr34ks"); 
$a-> pack; 
MainLoop; 


الان نلاحظ ان ناتج تنفيذ هذا الكود هو كما في هذه الصورة الاتية 


Hello YYoridl 


FICURES) 
الان نلاحظ ان تلوين الخلفية الخاصة بهذا اللامر تم تلوينها باللون الاحمر الذي قمنا بتحديده ومن الممكن ان یتم‎ 
تغير الالوان الى الالوان اخرى مثل اخضر او ازرق او اي لون اخر انت تحبه‎ 
الخاصية الثانية‎ 
هنالك خاصية اخرى من الممكن ان يتم استعمالها لكي يتم اضافة خاصية اخر الى امكانيات البرنامج وهذه‎ 
(f٥r٥e9 ۲٥u ۸d الخاصية خاصية ال(‎ 
ويتم استعمالها كما في هذا الكود الاتي‎ 
CODE(/9) 
use TK; 
Ştop=MainWindow->new; 
$a=$top-> Label( -text => "Hello World", 
-background => "red", 
-foreground =>"yellow" 


J 
Stop-> title("Programming-fr34ks"); 
$a-> pack; 
MainLoop; 


الان نلاحظ انه عندما يتم تنفيذ هذا الكود سوف نلاحظ حدوث ما يلي فيه كما في الصورة الاتية 
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FIGURE) 


ومن الخوراص الاخرى التي تكون متعلقة بهذه الخيار هي خيارات المتعلقة بالاحدائثيات الطول و العرض ومن 
الممكن ان يتم دمجها مع الخيارات الماضية كما في هذا الكود الاتي 
CODE(10)‏ 
use TK;‏ 
Ştop=MainWindow->new;‏ 
$a=$top-> Label( -text => "Hello World",‏ 
-background => "red",‏ 
-foreground =>"yellow'"',‏ 


-height EEE 
-width = <10 
J; 

Stop-> title("Programming-fr34ks"); 

$a-> pack; 

MainLoop; 


الان عند تنفيد هذا الكود سوف نحصل على ما يلي كما في هذه الصورة ولكن على كل الصورة التي راح نحصل 
عليها هي صورة غير منتظمة لانني لم اضبط الاعدادات الخاصة بها على كل الصورة هي كما يلي 


FIGURES) 
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الخاصية الرابعة 
ومن الخواص الاخرى الموجودة لدى هذا الامر هي خاصية الفونت اي انه نقوم بتحدید الخط الذي نريد ان نکتب 
به وتتم العملية كما يلي في هذا الكود 


CODED) 


use TK; 

Ştop=MainWindow->new; 

$a=$top-> Label( -text = > "Hello World", 
-background => "red", 
-foreground =>"yellow'"', 


-font = > "arial" 
J; 
Ştop->title("Programming-fr34ks"); 
$a-> pack; 
MainLoop; 


E A CO O O PD OT 
بين هذه الصورة والفرق بين الصورة التي مضت من ناحية الخط‎ 


FIGURE(O) 
الخاضت لخا‎ 
الان هذه الخاصية هي تكون مسئولة عن تكون الزخرفة الخاصة المكونة للكلمة التي تم اسنادها الى الخيار‎ 
(label) 


وهذه الخاصية هي خاصية اسمها ال(۴ع/اما) 

والان عند تنفيذ كود قد تم ادخال فيه هذا الخيار سوف نحصل على ما يلي 

والان سوف نقوم بكتابة كود هذا الكود يحتوي على كافة الخواص المتعلقة بهذا الخيار اي الخيار (۴عااما) 
واليكم الكود الخاص بهذه العملية وسوف نلاحظ الفرق بين هذه بين كل كلمة و الزخرفة التي تحيط بها 
الكود 


Perl Gui Programming Book page:-(10) 


CODE(12) 


use TK; 
$top=MainWindow->new; 
Stop->title("programming-fr34ks"); 


Şa=$top-> Label ( -text => "Hello World"', 
-relief = > "groove" 

J; 

$a-> pack; 

$b=$top-> Label( -text =>"Hello World", 
-relief =>"'flat" 

J; 

$b-> pack; 

$c=$top-> Label( -(ext = > "Hello World", 
-relief =>"raised" 

J; 

$d=$top-> Label( -text =>"Hello World", 
-relief =>"sunken" 

J; 

$d-> pack; 

$e=$top-> Label( -(ext = > "Hello World", 
-relief =>"solid" 

J; 

$f =Stop-> Label( -text =>"Hello World", 
-relief =>"ridge" 

J; 

$f-> pack; 

MainLoop; 


الان عند تنفيذ هذا الكود سوف نحصل على هذه الصورة كناتج على نجاح التنفيذ 


`. programming-fr34ks 


Hello Worid | 


Hello World 
Hello Word 
Hello Worid| 


FIGURE(7) 


الان سوف نتكلم عن ما يخص الازرار وما يتعلق بها وما يتعلق ببرمجتها وكيف يتم انشأها وخياراتها و الخ من 
الامور المتعلفقة بها 
اولا وقبل البداية الكل يعرف انه الازرار في لغة البيرل وفي كل اللغات هي تكون على نوعين 
1-check buttons‏ 
2-radio buttons‏ 


الان سوف نقوم بكتابة كود من شأنه ان يقوم بأنشاء زر وسوف نتكلم اكثر بعد الكود 


CODES) 


use TK; 

$top=MainWindow->new; 

$a=$top-> Checkbutton (text = > "Hello World"); 
$a-> pack; 

MainLoop; 


الان من خلال نظرة مبدئية على هذا الكود سوف نلاحظ انه يشبه الكودات الاخرى التى سبق ان قمنا بكتابتها فى 
الضفحات الماش ركن فط حه الاخلات ال حدة من الاح الكاة أن يكن القرل ٠‏ 
هو انه هذا الكود يحتوي علy‏ كأs)4nئCheckbutton(‏ 

والكودات الاخرى الماضية تحتوي على كلمة(/عطاج) 

والان نلاحظ انه هذا الكود على العموم ليس بمقدار من الصعوبة و انه لا يحتاج الى شرح و الان اذا قمنا بتنفيذ 
هذا الكود سوف نحصل على نتيجة عرض كما في الصورة الاتية 


FT Hello Yorld 


FIGURES) 
الأن كما نلآحظ انه لأحظنا نتيجة تنفيذ الكود طبعا اكيد ومن الممكن ان تعمل على أضافة الخواص البرمجية التى‎ 
٠ ذكرناها في الكودات السابقة مثل الفونت و الخلفية الخاصة باللون و خلفية الكلمات‎ 
يعني الباك كراوند و الفوركراوند على التوالي ولكن هنالك فقرة لم اتطرق عليها في الموضوع السابق وهي انه من‎ 
اللمكن ان تتم اضافة اوامر تقوم هذه الاوامر باعمال معينة و الان سوف نكتب الكود الخاص بما اعنيه لكي نتناقش‎ 
في ما يعني ذلك‎ 
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CODE(14%) 
use TK; 
Ştop= MainWindow->new; 
a= $top-> Checkbutton (  -text => "Hello world", 
-command = >\&exit 
J; 
$a-> pack; 
MainLoop; 
الان نلاحظ هذا الكود انه يحتوي على فقرة واحدة تختلف عن الكودات السابقة و هذه الفقرة هى‎ 
ات‎ 
-command = >\&exit 


هذه هو المقطع الغريب الذي كنت اتحدث عليه والغريب فيه هو انه ليس ظاهريا!!! 

الان اکید سوف یسال احد ویقول نحن نشتغل على ال(9 )Gui ٥۲0٥9۲۸۸۱۸۸‏ 

اذن ما فائدته اذا لم تكن ظاهريا اذن هذه فقرة سوف نتعلمها هو انه لیس كل ما يكتب في داخل الكود سوف تكون 
قادرا على رؤية ما يحتويه في البرنامج بعد عرضة الان نرجع الى فقرة هذا السطر البرمجي هو انه عندما ننفذ 
الكود ونأتي الى التشيك بوتون الى قد قمنا في عملها وعندما نقوم بالكبس عليها فلن نحصل على تأشير الذي 
عهدناه من الحالات السابقة ولكن الذي سوف يحصل هو انه عند الكبس عليها سوف يتم الخروج من البرنامج هذه 
هي اهمية هذه الخطوة 

اي الان ان امكن تعريفها يمكن ان نعرفها كما يلي 

الكوماند تحدد رفرنس الى روتين فرعي في البيرل يؤدي وظيفة معينة عند الكبس او الضغط على الزر الذي 
یکون فيه مفعل 
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Radio Button 
الان بعد ان عرفنا ماهي التشيك بوتن سوف نصمم الراديو بوتن والعملية تتم كما يلي في هذا الكود‎ 
CODE) 
use TK; 
$top=MainWindow->new; 
$a=$top-> Radiobutton (  -text = > "Hello world" 
J; 
$a-> pack; 
MainLoop; 


NEN E OOD ES 
الأزر على وعند التنفيذ سوف نحصل على هذه الصورة‎ 


دا ا اا - KK‏ 


yp” Hello vwrorld 


FIGURE) 
الان لدينا سؤال يطرح؟؟ وهو هل من الممكن ان يتم تصييم‎ 
(2 radio buttons or 2 checkbuttons) 
الجواب على هذا السؤال ممكن اكيد وكما في هذا الكود الاتي الذي يوضح العملية‎ 
CODE(17) 
use TK; 
Ştop=MainWindow->new; 
$a=$top-> Radiobutton (  -text = >"Hello world" 
J; 
$b=$top-> Radiobutton ( -text => "perl is made for wisedom seekers"); 
$a-> pack; 
$b-> pack; 
MainLoop; 


الان عند تنفيد هذا الكود سوف نشاهد الصورة التالية 
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- Hello vrorld 


ır perl Iš made for vwisedom seekers 


FIGURE(10) 


كما نلاحظ اذن من الممكن ان تتم عملية الدمج بين زرين من نوع واحد ولكن بعد ان تمت العملية بنجاح هذا الكود 
الذي كتب قبل قليل يقودنا الى فكرة اخرى هي انه نحن الان قمنا بكتابة كود هذا الكود يقوم بعمل استعراض لزرين 
من نوع الراديو بوتن 

الان سوال اخر هو هل انه من الممكن ان يتم عمل ما يلي 

(merge between both of radio button and the checkbutton in one code) 

طبعا اكيد ومن الممكن ان تتم هذه العملية من خلال هذا الكود الذي يوضح الفكرة وكما يلي 


CODES) 


use TK; 

Ştop=MainWindow->new; 

$a=$top-> Radiobutton (  -text = >"Hello world" 
J; 
$b=$top-> Checkbutton ( -text => "perl is made for wisedom seekers"); 
$a-> pack; 

$b-> pack; 

MainLoop; 


الأن كما نلاحظ على ما يبدو ان العملية تمت و الان سوف نلأحظ ما هى تاتج هذه العملية لي الصورة التالية 


= 
jy Hello wuroridl 


TFT perl is made for vrisedom seekers 


FICURE(11) 
اذن اصبح من الممكن ان تتم عملية دمج بين نوعين مختلفين من الازرار‎ 


الان وبعد ان اخذنا نظرة عامة عن الازرار وعن كيف نقوم بتكوينها وعن كيفية تصميم كل من النوعين المتمثلين 
بال 
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Buttons properties 
الان سوف نتكلم عن خواص هذه الازرار وعن بعض التطبيقات المتقدمة التي من الممكن ان نقوم بها لكي نصبح‎ 
على اطلاع اكبر بهذا الازرار وكما‎ 


اا الل 
في هذا البرنامج سوف نعمل على كتابة كود يعمل على انشاء ازرار من الراديو تقوم بعملها بشكل صحيح لانه كما 
لاحظت في الكودات السابقة انه الازرار بعد التنفيذ ذاتيا تظهر وقد تم تاشيرها ام الان سوف لن تظهر وقد تم 
تأشيرها بل أنت سوف تعمل ما تحب والكود هو كما يلي 


CODE) 


use TK; 

$top=MainWindow->new; 

$b=$top-> Label( -text => "what is ur favourite programming language" 
J; 

$b-> pack; 

foreach (qw/c perl python ruby/){ 

$a=$top-> Radiobutton( 


-text => 
-variable = >\$spawn, 
-value =< 

J; 

$a-> pack; 

MainLoop; 


والان وعند تنفيذ هذا الكود سوف تظهر لنا هذه الصورة للبرنامج على كل بعد ان نرى الصورة سوف نشرح ما 
هو هذا البرنامج ماهي اهمية الخطوات التي قد وضعت في داخله 


۹ 
i ° TI: 


what IS ur favourite programming lanjuajE 
E 
* merl 


*  gython 


bY 


FIGURE(12) 
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الان نلاحظ هذه الصورة ونأتي الان الى شرح البرنامج هذا البرنامج في البداية مكون من لابيل هذا ال لايبل يعمل 
من خلال اسناد احدى الخواص المتعلقة به ان يعمل على كتابة النص الموجود في الاعلى وهو اختار لغتاك 
البرمجية المفضلة ونلاحظ بعد ذلك انتهاء مهمة هي قمنا بالانتقال الى القسم الثاني من البرنامج وهو قسم الازرار 
التي هي من نوع راديو بوتون نلاحظ انه قد قمنا بوضع عبارة الفور وبداخلها اسماء اللغات ولكن ليست عبارة 
الفور هي ما يهمنا لانه هي عبارة عن جملة برمجية بسيطة قد مرت علينا عدة مرات و عملنا ما هو عملها ولكن 
ما يهمنا الاما هي المعلومات الموجودة داخل الاقواس الخاصة بالزر على كل هذه المعلومات هي فائدتها كما يلي 
الخيار الاول وهو كما في الكود الاتي 

CODE(20) 


-text => 


هذا الخيار هو الخيار الخاص بادخال اسماء لغات البرمجة الموجودة في عبارة السيطرة فور الى 
البرنامج ونلاحظ انه قد تم اختيار المتغير الافتر اضي ال)ضvariab|Ie (default‏ 
لانه لو قمنا باختيار متغير اخر يعني متغير نحن نحدده عدا هذا المتغير فأن الذي سوف يحدث هو انه اما اسماء 
هذه الحالات فان الخيار الاول اي عدم ظهور اسماء اللغات هو يکون الغالب لذا ارجو الانتباه الى هذه الفقرة 
الخيار الثاني هو التالي 

CODE(2L) 


-variable = >\$spawn, 


هنا هذا الخيار كما نلاحظ من اسمه ان يحتوي على متغير ولكن من اين جأت قيمة المتغير؟؟؟ 
وان البرنامج كله لا يحتوي على القيمة المذكورة في هذا الخيار 
طبعا سؤال مثل هذا السؤال هو سؤال طبيعي لانه فعلا لا توجد هكذا قيمة ولكن هذه القيمة نحن نقوم بادخالها كيف 
نقوم بذلك ؟؟ و هذا الخيار اي خيارالفاريابل يتم ادخاله لكي يتم التعامل مع قيمة متغير موجودة في البرنامج من 
دون الحاجة الى التعامل معها بشكل صريح في البرنامج يعني ترجمة كلامي هذا هو انه عندما نقوم باستعمال 
عبارة الفور دائما يتم استعمال متغير معها لكي تتم العملية بشكل صحيح ولكن الان لاحظ معي هذا الكود البسيط 
جدا 
CODE(22)‏ 
;(8,9, ,5,0 ,ررر @a=(1‏ 
foreach $a(@a){‏ 
print $a;‏ 
1 


لاحظ معي برنامج سهل يحتوي على مصفوفة مكونة من تسع عناصر من خلال استعمال عبارة الفور تم اسناد 
قيمة متغير الى المصفوفة ومن ثم قمنا بطباعة هذا المتغير 

الأن اتمتى ان ترضح الصورة يعني مسا الان عمتا انه خبان الفارياال هو خيار يخمل فة لمتير 

دون الحاجة الى اسنادها بشكل صريح والان علمنا انه المتغير سباون هو مرادف للمتغير(a$)‏ 

الموجود في البرنامج البسيط الموجود في الاعلى اذن المتغير سباون هو المتغير اذي تم اسناده الى اسماء اللغات 
الموجودة في عبارة الفور الان الصورة بدأت تنجلي وعرفنا ما الذي حصل ولكن بقيت الان فقرة واحدة 
غيرواضحة هي لماذا لانريد ان نقوم باسناد متغير بشكل صحيح في البرنامج ؟؟ 

طبعا هذا السؤال جاوبنا عنه مسبقا!!! 
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لانه من قبل نحن قد قبلنا انه لن نطلق على اي ناتج تنفيذ برنامج انه طباعة ولكن سنقول عرض حيث انه لو اسندنا 
قيمة بشكل مباشر فانه لن تستعرض بل ستطبع ولن تكون النتيجة بصرية هذا هو السبب 
اما الان ناتي الى الخيار التالث وهو كما في الكود الاتي 


CODE(23) 


-value =>, 


وهنا في هذا الخيار هو الخاص بالقيمة وقد تم اسنادها الى قيمة المتغير الافتراضي 
الان انتهينا من عمل دمج بين خاصيتين ولكن الان سوف ندخل في خواص اخرى من خواص الازرار 
الخاصية الاولى 
تلوين الحدود الخاصة بالازرار الموجودة في البرنامج لدينا وتتم العملية كما في هذا الكود الاتي لدينا 
CODE(24)‏ 
use TK;‏ 
Ştop=MainWindow->new;‏ 
$a=$top-> Checkbutton(Ctext = > "Hello World", -highlightbackground =>red);‏ 
$a-> pack;‏ 
MainLoop;‏ 


نقوم بتنفيذ البرنامج ونلاحظ ما يلي عند تنفيذ البرنامج نلاحظ الصورة الاتية كما يلي 


Fs EET, 
د‎ DD د‎ 


TFT Hella Yond 


FIGURES) 
نرق الان انه تم احاطة الكلمة هلو ورلد باأطار احمر علی طول الكلمة و هذه الخاصية ان امکن القول هي ليست‎ 
خاصية برمجية ولكن هي عبارة عن خاصية تكميلية والغاية منها هي جمالية الزر الذي نعمل على برمجته‎ 


الخاصية الثانية 
هذه الخاصية هي خاصية لها علاقة بالتأشير على الزر وتكون على حالتين ما 1 او صفر و الان سوف نأخذ الكود 
الخاص لهذه الخاصية هو الاتي 


"CODE(25) 

use TK; 

Ştop=MainWindow->new; 

$a=$top-> Checkbutton (text => "Hello world", 
-onvalue = >0, 
J 

$a-> pack; 

MainLoop; 


هذه الخاصية هي تكون تعني عندما تكون مصمم الزر فأنها ألتأشير سوف يكون لمرة اي لا يمكن ان يتم اعادة 
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كما تريد اي تقدر ان تأشر على المربع بالعدد الذي تريده 

الخاصية الثالثة 

هذه الخاصية هي من الخواص البرمجية اي انها ليست من تلك الخواص التكميلية التي مر علينا ذكرها في المرات 
السابقة وهذه الخاصية اسمها خاصية الحالة اي حالة الزر من ناحية كونه زر فعال او زر غير فعال الى الخ طبعا 
الكود الخاص بهذه العملية هو الكود الاتي 


CODE(20) 

use TK; 

Ştop = MainWindow->new; 

$a=$top-> Checkbutton(  -text => "Hello world", 
-state = >active, 
J 

$b=$top-> Checkbutton(  -text => "Hello world", 
-state = >disabled, 
J; 

$a-> pack; 

$b-> pack; 

MainLoop; 


الان نلاحظ انه عندما تنفيذ الكود الذي كتبناه في الاعلى ينتج عن التفيذ هذه الصورة ولك ان تلاحظ ماهو الفرق 


TFT Hello vworld 


FICURE(14) 
لاحظ الان كم هو الفرق واضح اي انه من الاكيد وكما هو ملاحظ من الصورة ان الزر الاول هو الزر الذي كانت‎ 
حالته مفعلة اي اكتيف و الزر الثاني هو الزر الذي كانت حالتة غير مفعلة اي انها مبطلة‎ 


الخاصية الرابعة 

هذه الخاصية من الخواص المتقدمة التكميلية ولكنها في نفس الوقت برمجية وتدل على ان الشخص الذي يستعملها 
هو شخص يسعى الى الكمال و الجمالية في البرنامج الذي برمجه هذه الخاصية هي خاصية تلوين السطر بلون 
مختلف مع كل اختيار يتوافق مع العمل الذي اقوم به وهذه تتم العملية كما يلي في هذا الكود 


Perl Gui Programming BOOK page:-(19) 


CODE(27) 


use TK; 
$mw= Main Window->new; 
$rb_value = "red"; 
Şmw->configureCbackground => $rb_value); 
foreach (qw/red yellow green blue grey/) { 
Şmw-> Radiobutton(text => $_, 
-value => $_, 
-variable => \$rb_value, 
-command => \&set_bg)->pack(side => 'left'); 
sub set_bg { 
print "Background value is now: $rb_valuel\n" 
$mw->configure(Cbackground => $rb_value); 
MainLoop; 


نالي الى شرح الكود ماهي هذه الخطوات وما الذي تكون مسئولة عنه في البرنامج 
الخطوة هده 
او لا 
CODE(2S)‏ 

$rb_value = "red"; 
عمل هذه الخطوة هى انه لدينا متغير هذا المتغير هو متغير عادي كما نرى يحمل نص بين علامات الاقتباس للون‎ 
الاحمر سنعلم معلومات اكثر عن ماهية هذه الفقرة في الخطاوت اللاحقة‎ 
الخطوة التي في هذا الكود‎ 


CODE(29) 


Şmw->configure(Cbackground => $rb_value); 


هذه الخطوة ¡ هي عبارة عن خطوة تعريفية اي انه في الخطوة ¡ السابقة ذكرنا انه لدينا متغير يحمل ستر ينك تحمل 
اللون الاحمر على انه القيمة المعطاة لها اما في هذا الخطوة كما ذكرنا انها خطوة تعريفية اي انها تم اعتماد الخلفية 
للبرنامج على انها اللأون الاحمر اعتمادا على ما تم ادخالة للمتغير الذي اسندت له قيمة اللون الاحمر اي الان 
الخلفية الخاصة بالبرنامج هي احمر ولكن مما تجدر الاشارة اليه هي انه لون تم تغيير اللون الاحمر في اول خطوة 
قمنا بشرحه متلا الى اللون الازرق فأن الخلفية الخاصة للتفيذ البرنامج سوف تتحول من اللون الاحمر الذي تم 
اغتماذه ها ألى اللون الاررق و هكا ااا 

CODE(30) 


foreach (qw/red yellow green blue grey/) 


هذه الخطوة لاتحتاج الى شرح مجرد جملة فور تحتوي بداخلها اسماء الألوان التي سنعمل عليها وفقط لا اكثر و 
لااقل 
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رابعا 
شرح هده الأخطوة هو 
CODED)‏ 
$mw-> Radiobutton(text => $_,‏ 
-value => $_,‏ 


-variable => \$rb_value, 
-command => \Srset_bg)->pack(side = ا‎ left’) 


الان هذه الخطوة كما بات معروفا لدينا هو انه هي مسئولة عن تكوين الازرار و التي في حالتنا هذه سوف تكون 
من نوع الراديو بوتن اما 

المعلومات التي تحتويها هي خيار ال تيكست وهو تحميل اسماء الالوان الى الازرار وتم استعمال المتغير 
الافتراضي في هذه الحالة لانه كي لايتم حصول خلل في ترتيب الاسماء الخاصة بالالوان 

خواص الازرار اما الکوماند ماهو ماعمله ايضا شرحنا ماهو عمله في بداية شرحنا على عمل الازرار 

خامسا 

اما الان فأن البرنامج الرئيسي او ما يحب ان يسميه المبرمجون الاخرون البرنامج الاول قد انتهى وحان الوقت 
ا د ا 00 ا ا ا یا 0 ی 

وهو كما يلي في الكود الاتي 

CODE) 
sub set_bg { 


print "Background value is now: $rb_value\n" 
Şmw->configureCbackground => $rb_value); 


عمل الروتين الفرعي هو كما يلي في البداية لدينا رويتن فرعي متكون من خطوتين واسمه اي اسم 

الروتين الفرعي هر(وط_اعء) 

وقد تم ادخاله الى الى مكونات الزر البرمجية من خلال الامر او الخيار كوماند ومن ثم 

اول شئ يحتويه هوجملة الطباعة وهي تحتوي على نص بسيط وهذا بسيط ومفهوم وهي ايضا في نفس الوقت 
تحتوي على المتغير الذي قد قمنا بادخاله في بداية البرنامج والغرض منه هو انه عند التحويل من لون الى لون فان 
اما الخطوة ارف دن ارون ار هي الخطوة O ERA EO TT‏ 
اما الان حان وقت تنفيذ البرنامج لكي نرى ما هو ناتج التنفيذ من هذا البرنامج 

واليكم الصور الخاصة بهذه العملية 
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FIGURES) 


طبعا اضطريت الى ان اقوم بتفيذ البرنامج اكثر من مرة كما هو ملاحظ لكي تقوموا بملاحظة الفرق على كل 
انتهينا من هذه الخاصية من ناحية الصورية الان حان الوقت لكي نرى الفرق من خلال الشيل كي نرى كيف يتم 
التبديل بين الالوان والصورة التالية سوف توصف هذا 


FIGURE(16) 


هنالك ملاحظة احب ان انوه اليها في البرنامج هي ان الخطوة هذه المدرجة في الكود 


CODES) 


$Şmw->configure(background => $rb_value); 


ومن ان الممكن ان يتم الاستغناء عنها لانه هذه الخطوة مكررة في الروتين الفرعي لذا من الممكن ان 

تقوم بالاستغناء عنها 

الخاصية الرابعة 

قبل ان ندخل في اعماق هذه الخاصية سوف نتعلم تقنية جديدة سوف تكون مفيدة في هذه الخاصية وهذه التقنية هي 
تقنية الزر المفرد اي انشاء زر ليس من نوع التشيك بوتن وليس من نوع الراديو اي زر مفرد لوحدة والكود 
الخاص بأنشاء هكذا نوع من الازرار هو كما يلي 
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CODE) 
use TK; 
Ştop = MainWindow->new; 
$a=$top-> Button( -text = > "Hello World", 
-highlightbackground = >red, 
J; 
$a-> pack; 
MainLoop; 


عند تنفيذ الكود سوف نحصل على نتيجة كما هي مدرجة في الصورة ادناه 


Hella World 


FICURE(17) 


نلاحظ ان هذه الصورة التي هي ناتج تنفيذ البرنامج السابق لاتحتوي على اي تعقيد وهي لب ليست بمقدار من 
الان بعد ان تعملنا تقنية الزر المفرد هذه فأنه سوف نرجع الى الخاصية التي سبق ان تكلمنا عنها وهي خاصية 
و ا e E E‏ 

CODES) 


use TK; 

Ştop = MainWindow->new; 

$value = 0; 

$cb = $top-> Checkbutton(text => "Checkbutton", 
-variable => \$value, 
-command => sub { print "Clicked! $value\n" } 
J->pack(side => "top’); 


$top-> Button(Ctext = > "Value on", 

-command => sub { $value = 1 }->pack; 
$top-> Button(text = > "Value off", 

-command => sub { $value = 0 }->pack; 
MainLoop; 


الان نأتي الى شرح هذا الكود لكي نفهم ماهي مكونات الخطوات وماالذي ينتج منه وكما يلي 
الخطوة الاولى 
CODE(36)‏ 


$value = 0; 
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CN NS 
الخطوة الثانية‎ 
شرحها في هذا الكود الاتي‎ 
CODE(S) 
$cb = $top-> Checkbutton(text = > "Checkbutton", 
-variable => \$value, 


-command => sub { print "Clicked! $value\n" } 
J->pack(side => 'top'); 


الان شرح المعلومات داخل البلوك الزر 
التكست مفهوم وشرحناه اكثر من مرة 

اسناد قيمة الفاريبل الى متغير موجود في البرنامج من اجل العمل على قيمة ال 

(on and the off value in the code) 

الخطوة الثالثة وهي الكوماند وهي كما نلاحظ انها تحتوي على روتين فرعي 

على كل عندي ملاحظة قل ما نشرح هذه الخطوة وهي انه كل مابين قوسين ويكون هذين القوسين من 

(Curly Brackets)|J! ع‎ gi 

اي من نوع ال 

وتکون مسبو قة بکلمة(اںی) 

هذا يعني ان البوك الذي امامنا هو عبارة عن روتين فرعي دائما وابدا 

نرجع الان الى نقطتنا الاساسية المهم نلاحظ دائما ايضا انه الامر كوماند يأتي معه الروتين الفرعي وهنا في 
البرنامج الذي كتبناه 

وهنا وظيفة الكوماند هي انه يطبع كلمة(ل ع٤۸‏ ١/م)‏ 

وايضا قيمة المتغير (مںام$۷) 


CODES) 
Ş$top-> Button(text = > "Value on", 
-command => sub { $value = 1 })->pack; 
)۷aاںع‎ ٥۸(ۂمہلک اما الان شرح هذا الجزء من الکود هو انه یتم انشاء زر مفرد توجد عليه‎ 
ومن ثم الامر كوماند هذا الامر قد تم اسنادها الى روتين فرعي ويحمل في داخل هذا الروتين قيمة المتغير‎ 
المفتقرض في بداية البرنامج ولكن تم تفعليها الى واحد‎ 
اما الخطو التي تأتي بعد هذه الخطوة هي مثل هذه الخطوة ولكن تختلف عنها هي انه الخطوة الاخرى قيمة المتغير‎ 
فيها هو صفر و فقط‎ 
والان عند تنفيد هذا البرنامج نحصل على الصورة الاتية‎ 


TFT Check Button 


Walle on 


Fale off 


FIGURES) 
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بعد ان انتھینا من کل ما یتعلق بال(۸8٥ااں6)‏ 
في لغة البيرل سوف ننتقل الى تقنية جديدة 


الان بعد ان دخلنا في برمجة الواجهات الرسومية لاحظت انه لم نأخذ من وسائل الادخال سوى وسيلتان هما 
1-Labels‏ 
2-Buttons(Buttons, Checkbutton, Radiobutton)‏ 
وفقط الان سوف نأخذ طريقة او تقنية اخرى وهي تقنية تشبه تقنية ال(ءئ/عطص) 
علی کل سوف ناخذ الان كود بسيط يوضح عمل تقنية ال( ر٣٤۸ )E٤‏ 
CODE(39)‏ 
use TK;‏ 
Ştop = MainWindow->new;‏ 
$a=$top-> Entry( -text => "hello world",‏ 
$a-> pack;‏ 
MainLoop;‏ 


وقبل ان اعرض الصورة هذا البرنامج عبارة عن برنامج بسيط يعني لايحتوي اي شئ من التعقيد الذي يحتاج الى 
شرح على كل هذه صورة البرنامج 


hello world 


FIGURE) 


ولكن عند تنفيذ البرنامج من احد أهم الفروق التي نلاحظها على البرنامج و التي لم نلاحظها في البرامج والتقنيات 
السابقة هي انه من الممكن ان يتم تغيير النص المكتوب داخل ال(رء٤مع)‏ 

حتى بعد ان يتم تنفيذ البرنامج يعني الان من الممكن ان تغير كلمة(ل!/w0 (ell o٥‏ 

الى اي كلمة اخرى مثلا تغيرها الى اسمك او الى اخره من الخيارات 

الان بعد ان انتهينا من عمل التعريف العام الخاص بتقنية ال( ر٣٤۸ )٤‏ 

الان سوف ندخل الى برمجة الخواص الخاصة بال( ٤۸٤٣‏ ) 
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الخاصة الول 
طبعا في بداية الكلام عن الخصائص فأنا لن اتكلم عن جميع الخصائص لأن اغلبها الان اصبح مكرر وبالأضافة 
الى هذا ان هده e‏ اصبحت مشتركة بين كافة الو سائل التي أخذناها 
هذه الخاصية هي خاصية ادخال لون وهي تکون كما يلی ف هذا الكود 
CODE(40)‏ 


use TK; 

Ştop = MainWindow->new; 

$a=$top-> Entry( -text => "Hello world", 
-insertbackground =>red, 


$a-> pack; 
MainLoop; 


الان عند تنفيذ هذاالكود سوف نحصل على هذه الصورة الخاصة بتنفيذ البرنامج 


Hello world 


FIGCURE(20) 
)م۸٤ءر(لا اذن هذه الخاصية هي خاصية تعتبر ذات اهمية اذا اردت ان تغير لون المؤشر في داخل‎ 
ولكن مما تجدر الااشارة اليه هي انه لا يتم تغير لون الاحرف عند الكتابة بالمؤشر الملون اي ان الحرف سوف‎ 
يبقى يكتب باللون الذي يكتب به ولن يتغير لونه الى اللون الاحمر‎ 


کرس اا د ا ا ج ا هو ع ا کدی واف ا ن اراک 
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الخاصية الثانية 
هذه الخاصية هي خاصبة الحالة اي الحالة الت يكون فيها حالة (entry)|J'‏ 
مفعلة او ليست مفعلة 
الشر چ کی هذا الكود 
CODE(40)‏ 
use TK;‏ 
Ştop=MainWindow->new;‏ 
Şa=$top-> Entry( -text => "Hello world",‏ 
-state = >disabled,‏ 
J;‏ 
$a-> pack;‏ 
MainLoop;‏ 


الان نلاحظ انه عند تنفيذ البرنامج انه عندما نأتي الى ما عرفناه من تغير النص داخل صندوق ال 
(Entry)‏ 

سوف لن نكون قادرين على هذا التغيير والسبب يعود في هذا الوضع هو انه قد عطانا خاصية التغيير 
هذه من تقنية ال( ٤۸٤‏ ) 

والصورة الخاصة بتنفيذ البرنامج هي كما يلي 


` FICURE/21) 


E a O N E a E OO 
الصورة بالأضافة الى الفرق البرمجي بين البرنامجين‎ 


O EE, 
هي خاصية ال(۴ع!اع۲)‎ 

او ما يعرف بخاصية الزخرفة ومن الممكن ان يتم تطبيق كافة خياراتها على تقنية ال(1/y٠ع)‏ 
ولكن لن اقوم بشرحها لانني قد شرحتها في تقنية ال(٤/٥طھ/)‏ 

ولكي نتجنب ال الشرح الطويل و المكرر 
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الخاصية الثالذة 

وهذه الخاصية هي من اهم الخصائص الموجودة في تقنية ال(ر٤م)‏ 
ا التشفير ويکون عمل هده الخاصية من خلال خیار العرض ويتم استعمال هده الخاصية كما يلي في 
CODE42)‏ 
use TK;‏ 
Ştop= MainWindow-> new;‏ 
اف $a=$top-> Entry(-show‏ 
$a-> pack; ۰‏ 
MainLoop;‏ 


هذا البرنامج يعمل على تشفير الاحرف التي نعمل على ادخالها ويعمل على تشكيلها على شكل نجوم ولكن الاشارة 
اليه هي انه نحن نجدد المعيار الذي يتم على اساسه التشفيراي لو تم تغيير الحرف او المعيار ذو شكل النجمة الى 
شكل اخر اي الى حرف اكس متلا فأن الاحرف و الكلمات التي سوف ندخلها سوف تأخذ شكل حرف الاكس على 
كل شكل هذا البرنامج بعد التنفيذ هو كما يلي 


FIGCURE(22) 


الخاصية الرابعة 

هذه الخاصية هي خاصية خاصة بالالوان ولن اتكلم عنها لانها قد شرحت من قبل كل من هذه الصفات 
ومشتقاتها من الممكن ان يتم تطبيقها على تفنية ال(ر٣٤م)‏ 

وعلی کل هذه الخصائص هي 


1-highlightbackground 
2-highlightcolor 
3-Insertbackground 


الان انتهينا من خاصية التعريف بالالوان وتحديد الخلفيات الخاصة بال(ر٣٤۸ع)‏ 
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الخاصية الخامسة 
هده الخاصية هي مں الخواص الف تکون مسئولة عں تحديد اأبعد الذي یحبط بصندوق (entry)d'‏ 
ولکي تصبح الفكرة مفهومة اکثر اليكم الكود الخاص بهذه العملية 
CODES)‏ 
use TK;‏ 
Ştop=MainWindow->new;‏ 
$a=$top-> Entry( -text = >"Hello world",‏ 
-highlightthickness => 15,‏ 
J;‏ 


$a-> pack; 
MainLoop; 


الان وبعد انيتم تنفيذ الكود نلاحظ انه سوف نحصل على الصورة الاتية من بعد التنفيذ 
واليكم الصورة 


Hello world 


FIGURE(23) 
ما تجدر الاشارة اليه في هذه الخاصية هي انه كل مرة كبرت فيها الرقم الموجود مع هذه الخاصية كل‎ 
ما زادت الهالة البيضاء التي تحيط بال( ر٤۸ ه)‎ 
اي انه العلاقة بينهما علاقة طردية‎ 
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هذه من اكثر الخواص التي قد تراها غرابة وهي على العموم غريبة وطريفة في نفس الوقت عمل 
هذه الخاصية هي تحدد ان امكن القول تردد المؤشر اذا ما ادخل الى صندوق ال(ر/م) 

وهذا طبعا يكون اعتمادا على الزمن الذي تدخله والمعيار الزمني الذي يقاس عليه هو زمن ال 
(Milliseconds)‏ 

الكود الذي يشرح هذه العملية هو الكود الموجود ادناه 


CODE(44) 
use TK; 
Ştop=MainWindow->new; 
$a=$top-> Entry ( -text = >"Hello World", 
-insertontime =>10, 
J; 
$a-> pack; 
MainLoop; 


الان نأتي الى شرح الكود هذا هو كود على العموم سهل وبسيط ولكن اهمية الخیار (6 (inse/٤0٥ ۸٤i‏ 

هي انه عندما نقوم بألتأشير علی صندوق ال( ۸1۲۷ )٥‏ 

بؤشر الفأرة فأنه سوف يصبح من الممكن لنا ان نحرر في مكونات النص الموجودة داخل صندوق الانتري 

الان هنا هذا الخيار اهميته هو تجعل المؤشر الخاص بالفأرة ينبض 

(Every 10 milliseconds) 

طبعا على العموم هذه الخاصية لن يكون معها صورة مرفقة لانه الفرق الذي سوف تحصل عليه لن يكون من 
الممكن ان تلاحظه من خلال صورة جامدة 

ولكن اذا اردت ان تلاحظ الفرق بصورة جيد وعملية هي تكمن في كتابة كودين اول من دون هذه الخاصية و الكود 
الاخر يكون مع هذه الخاصية لكي تلاحظ الفرق من المرة الاولى وببساطة 
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الخاصية السابعة 
هده الخاصية التي سوف نتناولها الان هي ايضا خاصية تتعلق بالالوان لكنني لم ادرجها في الخاصية الخاصة 
بألوان الموجودة في الصفحات القليلة السابقة لانه هذا النوع من الخواص لم نكن قد تطرقنا اليه مسبقا 
على كل lاlخlاصية (selectbackground)lnwl‏ 
وعملها سوف تلاحظه من خلال هذا الكود 
CODE(4S)‏ 
use TK;‏ 
Ştop = MainWindow->new;‏ 
$a=$top-> Entry( -text => "Hello world",‏ 
-selectbackground = >red,‏ 


$a-> pack; 
MainLoop; 


قبل ان نقوم بتنفيذ الكود الخاص بهذه الخاصية هنالك خاصية اخرى تندرج تحت هذه العائلة اي عائلة 
التحكم بالوان وهي خlصselectforeground)ı(‏ 
والكود الخاص بها هو الكود الاتي الذي يوضح ماهو عملها 
CODE 46)‏ 
use TK;‏ 
Ştop = MainWindow->new;‏ 
$a=$top-> Entry( -text => "Hello world",‏ 
-selectforeground = >yellow,‏ 
e‏ 
MainLoop;‏ 


الان بعد ان قمنا بتنفيذ هذين الكودين سوف نعرض الصور الخاصة بتنفيذهما 
الان الصورة الخاصة بخاصية الئ)Selectbackground(‏ 


HEI wrarld 


FICURE(24) 
(selectfo0rص9/0U۸d(لا اما الان فالصورة الثانية الخاصة بخاصية‎ 


Perl Gui Programming Book page:-(32) 


FICURE(25) 
لكن دون الحاجة الى شرح كل من الخاصيتين من الممكن ملاحظة ماهو عملها ومالذي تعمله على‎ 
)٥ ۸٤y صندوق ال(‎ 
من خلال المشاهدة فقط‎ 


بعد ان اتهينا من الكلام عن خاصية وتقنية ال(ر٣٤۸ع)‏ 
سوف ننقل رحالنا الى كل ما يتعلق بكل خواص السكرول بار وما يتعلق بها وما تقوم به وكيفية برمجتها واهم 
ENE‏ 
كل من يستخدم الكمبيوتر يعرف ماهو السكرول بار وكلنا نعرف انه عبارة عن خط مستقيم او عمود اشبه 
E N a E‏ 
بار يطلق (vertical ScrolIbar)مٺ| 4ıe‏ 
اما التوع الثاني من السكرول بار هو الثوع الذي يوج في آلأسفل الأصفحة الذي يعمل على تحريك الصفحة الى 
اليمين و اليسار وهذا النوع من السكرول بار يطلق عليه اٺم اScrollbar)J (horizontal‏ 
الان سوف نكتب برنامج بسيط يوضح كيف هو شكل السكرول بار وكيف يعمل اليكم الكود 
CODE(47)‏ 
use TK;‏ 
Ştop = MainWindow->new;‏ 
$a=$top->ScrollbarCorient => 'vertical',‏ 
-width =>30,‏ 
J;‏ 
$a-> pack;‏ 
MainLoop;‏ 


نظرة سريعة على البرنامج هو عبارة عن برنامج بسيط يحتوي في البداية على المعرف سكرول بار الذي نحن 
نريد تكوينه ومن تم داخل البلوك البرمجي لدينا خيار الاورينت وهذا الخيار من خلاله تحدد نوع السكرول بار 
الذي تريده ان يكون موجود في برنامجك اي ان يكون السكرول بار من النوع الاول اي سكرول بارعمودي او 
يكون من النوع الثاني اي سكرول بار أفقي اما الخيار الثاني فهو من 

خلال هذا الخيار تحدد العرض الذي تريده ان يكون للسكرول بار الذي برمجته ان يكون عليه وكل مرة زاد مقدار 
الرقم فيها كلما زاد حجم السكرول بار اليكم الصورة الخاصة بتنفيذ البرنامج 


FIGURE(20) 


اما اذا اردت ان تكون السكرول الخاصة بالبرنامج الذي تبرمجه ان تكون افقية فقط غير ال اتجاه خيار 
الاورينت من 

(Vertical to horizontal and that s it dude) 

الان سوف نأخذ الخاصيات الخاصة و المتعلقة بتقنية السكورل بار 
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الحا ول 
هنا في هذه التقنية اغلب الخاصيات التي شرحناها من الممكن ان يتم تطبيقها على هذه التقنية مثل 
1-relief‏ 
2-highlightcolor‏ 
3-highlihgtthickness‏ 
4-orient‏ 
5-width‏ 
6-background‏ 
ولكن هذه ليست كل الخاصيات المتعلقة بهذه التقنية هنالك بعض الخواص المتقدمة للهذة التقنية سوف يتم شرحها 
لاحقا وعلى اثرها سوف نبرمج كل ما يتعلق في السكرول بار 
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Advanced application on Scroll bar Technic 


البرنامج الاول 
الكرد الخاص بهذا افر نامج هر كرد الات 
CODES)‏ 


use TK; 
top = MainWindow->new; 
$a= $top->ScrollbarCorient => 'horizontal’); 
$b= $top-> Entry(ctext => "my web site is programming-fr34ks.net,see me there", 
-width => 30, 
-xscrollcommand => ['set' , $a]); 
Şa->configureCcommand => ['xview', $b]); 
Şa->pack(Cside => 'bottom', -fill => 'x’); 
$b->pack(side => 'bottom', -fill => 'x'); 
MainLoop; 


ألأن نأتي الى شرح هذا الكود لكي نعرف ما الفائدة منه 
الخطوة الاولى 
CODE(49)‏ 
$a= $top->ScrollbarCorient => 'horizontal’);‏ 
هذه الخطوة هي خطوة بسيطة عملها ان تقوم بأنشاء سكرول بار من النوع الافقي فقط 
الخطوة الثانية 


CODE(S0) 
$b= $top-> Entry(text => "my web site is programming-fr34ks.net,see me there", 
-width => 30, 
-xscrollcommand => ['set' , $a]); 
)٥۸٤٣/(لا اما عن هذه الخطوة فهي مسئولة عن تكوين صندوق‎ 
الذي شرحناه في الموضوع السابق حيث نلاحظ انه يحتوي على المعلومات الاتية(1×ه))‎ 
)م۸٤ر(لا الخيار الذي يعمل على ادخال النص الذي نريده الى صندوق‎ 
(entry الخيار الثاني هو خيار تحديد عرض ال(×0ط‎ 
)ع۸٤٣ر(لا وکلما زاد الرقم الخاص بهذا الخیار كلما زاد عرض صندوق‎ 
اما الخيار الثالث‎ 
)ca/|ط2٥)(لا فهو الخيار الخاص الذي يتم اسناد عمليات‎ 
اليه لكي يتم العمل على السكرول بار والقدرة على تحريكها اذن ان امكن القول هو الخيار الخاص الذي يعمل على‎ 
اعطاء السكرول بار الذي عرفناه في الاعلى القدرة على الحركة الى اليمين واليسار‎ 
ولكن لو تلاحظ بدقة ان السكرول بار الناتجة من هذا البرنامح لن تفقد القدرة على الحركة بشكل تام مئة في المئة‎ 
ولكن سوف يكون لها القدرة على التحرك الى جهة اليمين مقدار حرف واحد فقط لا غير ولذلك جرب ان تنفد‎ 
البرنامج بعد ان تلغي هذه الخطوة ولك ان تلاحظ ما هو الفرق‎ 
وسوف يكون لها القدرة على الرجوع ايضا مسافة حرف واحد الى اليسار‎ 
الخطوة الثالثة‎ 
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CODES) 


Şa->configureCcommand => ['xview', $b]); 


اما هذه الخطوة فهى الخظوء التي سوف دعي السكرول بار الحركة الكلية أي أنه لى الغيت وف أن تتحرك 
السكرول بار نهائيا وابدا  ٠‏ ۰ 

اما الخطوات التالية فهي خطوات الخيار (٤مم)‏ 

وهذه الخطوات هي الخطوات الخاصة باعطاء الاتجاه و اعطاء شكل الحزك طيف سيكون ولكن على العموم هذه 
الخطوات مهمة ولكن من الممكن ان يتم الاستغناء عن الخيارات الموجودة مع الامر 

(pack) 

ولكن من الافضل وجودها لانها خيارات تكميلية وتعمل على جعل البرنامج يبدو بصورة افضل 

والان بعد ان عرفنا هذا الكود ماهو وماهي وظيفته اصبح لا بد ان نرى ماهي الصورة الناتجة من تنفيذ هذا الكود 
وهي الصورة التالية 


my web SIte |15 programming-Iri4ES.NE 


F/CURE(27) 
الان نأخذ مزيد من البرامج الخاصة بتقينة السكرول البار لانه سوف ننتقل الى تقنية ال(×0طغءأ)‎ 
وهذه لتقنية تحتوي على الكثير من الامور المتعلقة بالسكرول بار لذا سوف ننتقل اليها‎ 


LisBoX) ooo |‏ 
تعريف عام ماهو ال(× 0ا (lis‏ 
هو عبارة كما هو واضح من اسمها انها صندوق تحتوي على عدد من السلاسل النصية التي حيث يتم عرض 
ولك الحرية ان تضع في هذا الصندوق ما تريد اي ارقام او كلمات او حروف مفردة او رموز الى اخره اي من 
الممكن ان تضع فيها ما تشاء وطبعا من الممكن ان تختار من هذه الرموز او الاحرف او لكي تطبق عليها ما تريد 
وكما سوف نلاحظ في الصفحات القليلة القادمة 
الكود العام لهذه التقنية هو الكود الاتي 
CODE(S2)‏ 
use TK;‏ 
Ştop = MainWindow->new;‏ 
Şa=$top-> ListboxÛ;‏ 
$a-> pack‏ 
MainLoop;‏ 


نلاحظ الان انه عندما يتم تنفيذ البرنامج سوف نحصل على الصورة الاتية 


AIGCURE(2S) 


الخواص العامة لتقنية ال(×0طاءاا) 
هذا النوع من تقنية ال(×هطاءاا( 
من الممكن ان يتم استعمال التقنيات السابقة مثل هذه 
1-background‏ 
2-highlightcolor‏ 
3-highlightbackground‏ 
4-selectbackground‏ 
5-relief‏ 
6-font‏ 
/7-foreground‏ 
8-heıight‏ 
9-width‏ 
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كل هذه التقنيات من الممكن ان يتم استعمالها مع هذه التقنية ولكن لن اشرحها لانه قد سبق وان تم شرحها من قبل 


LıstboX properties 
شئ غريب في الشرح عن الخواص التي تكلمنا عنها في الاسطر القليلة الماضية وهي انه لم ناتي على على شرح‎ 
)اًاءاb0×(لا كيف يتم اضافة النصوص الى‎ 
واضافة الى هذا ان اسلوب اضافة النص لا يتم من خلال استعمال الامر(×ه))‎ 
ما تعملنا ولكن يتم من خلال استخدام امر اخر وهو امر الادخال وتتم عملية اضافة النص الى تقنية ال‎ 
(list DOX) 
کھا لی فی هذا الکود الاتی‎ 
CODES) 
use TK; 
$top=MainWindow->new; 
a= $top-> Listbox(Cwidth =>30); 
Şa->insert(end!, 
"www.programming-fr34ks.net"", 
"www.seCcuritygurus.net'", 


J) 
$a-> pack; 
MainLoop; 
الان نأتي الى شرح هذا الكود في الفقرة الاولى من وهي الفقرة الاتية في الكود الاتية‎ 
CODE(S 4) 
Şa=$top-> Listbox(width = >30); 
هذه الخطوة التي تكون مسئولة عن تكوين ال(×0طاكءاا)‎ 
وتم فیها فقط تحدید عرض ال(×۶(50/)‎ 
لكي يتسع للمعلومات التي نرغب في ادخالها واضا نلاحظ انه لن يتم تحديد اي اشارة من خلالها لكي‎ 
)ا!ءا(b0×(لا یتم ادخال نص الى‎ 
على كل ننتقل الى الخطوة الاتية وهي خطوة مهمة وهي اول مرة تمر علينا هكذا خطوة‎ 
وهي الخطوة الاتية في هذا الكود‎ 
CODES) 


pa->insert(end", 
"www.programming-fr34ks.net", 
"www.seCuritygurus.net'", 


J) 


هذه الخطوة التي من خلالها يتم ادخال نص الى صندوق العرض ومن المهم ان نعرف ما يأتي وهو ان 
لماذا عند تنفيذ البرنامج لا يتم عرض كلمة نهاية( ۸d‏ ع) 
في صندوق العرض أيوجد خلل في البرنامج الذي كتبناه؟؟ 
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)!۸6۲( الی خیار‎ O O E O e 
ودائما ضع هذه الملاحظة في تفكيرك هي انه الخيار الوحيد الذي يتم من خلاله ادخال نص الى صندوق‎ 

العرض هو من خلال الامر(۸86/۲) 

ودائما هذا الامر تکون کلہۂ( ۸d‏ م) 

مرافقه لهذا الخيار الخاص بالادخال لذا ارجو الانتباه وبعد هذا الشرح على البرنامج لم يتبقى لنا ألا ان نرى صورة 
البرنامج وهي كما في الشكل الاتي 


rar pro frammInNg-TFIAkKS MET 
ر ر ر‎ 8 CLUFM LY HUFUS NET 


FIGCURE(29) 


Select mode 
بعد أن تكلمتا عن اسلوب اأضافة النص الى صندوق الغرض تلاحظ‎ 
ظهور سطرين في صندوق العرض السطر الاول هو سطر الذي يحتوي على‎ 
www.programming-fr34ks.net 
www.securitygurus.net 
سوف نتكلم الان عن الخواص التي تكون ملحقة بهذه الاسطر في داخل صندوق العرض اي بعبارة اخرى كيف‎ 
)!ہء6٣ا(لا نقوم بالتحكم بالنصوص من داخل معرف صندوق العرض وخارج امر‎ 
المسئول عن امر الادخال الى صندوق العرض‎ 
هذا الكلام من الممكن ان يتم ترجمته الى لغة البيرل من خلال تقنية ملحقة بصندوق العرض تدعي بتقنية نمط‎ 


الاختيار 
ولهذه التقنية خيارات ملحقة بها لكي تزودك باقصى مقدار من التحكم الذي تصبو اليه والخيارات التي تملكها هذه 
1-browse‏ 
2-extended‏ 
3-multiple‏ 
4-single‏ 


الان سوف نأتي الى شرح هذه الخواص و ما هو عملها وكيف يتم الحاقها لكي نرى ماهي الوظيفة التي تقوم بعملها 
وكيف نقوم بالاستفادة منها اليكم الكود الخاص بالخيار (ع/و١/ء)‏ 
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CODE(S) 


use TK; 

Ştop=MainWindow->new; 

Şa=$top-> Listbox(width = >30, 

-selectmode =>'single’); 

Şa->insert(end!, 

"www.programming-fr34ks.net"", 

"www.seCcuritygurus.net'", 

J; 

$a-> pack; 

MainLoop; 
على كل هذا الكود لايحتوي على شئ غريب نأتي الى التنفيذ ورنى الصورة الناتجة منه عسى ولعله نعرف ماهي‎ 

الفائدة مں استعمال هده الخاصية 


uy .PFOFFAMMING-TFIAHKS NET 
ر ر ر‎ CUM HUUS NET 


AIGURE(S0) 
الان ايضا من خلال النظر الى الصورة لم نلاحظ اي فرق عن الصورة السابقة الناتجة من البرنامج الماضي‎ 
(multiم/ع(مسالا على سوف نترك هذا الخيار وسوف ننتقل الى الخيار الاخر وهو الخيار الذي يحمل‎ 
نهرف مله من خلال ك اكه‎ 


CODE(S) 


use TK; 
Ştop = MainWindow->new; 
Şa=$top-> Listbox(width = >30, 
-selectmode =>'multiple’); 
Şa->insert(end!, 
"www.programming-fr34ks.net"", 
"www.seCcuritygurus.net'", 
"www.google.com", 
"www.yolinux.com'"", 
J; 
$a-> pack; 
MainLoop; 
الان ايضا نأخذ ظرة عامة عن هذا الكود نلاحظ ايضا انه لايو جد فرق ولكن سنرى الناتج الظاهر من تنفيذ‎ 
البرنامج لانه التخبير. فقي هذه الحالة سوف يكون تغيير صوري و اليكم اللصورة الخاصة بهذا البرنامج‎ 
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r pro gframming-Ir Aks Net 
ار ر ر‎ 58 CU TY[HHUFUS MEL 

f00 LOM‏ رر 

NK COM‏ رر ر 


FIGURES) 


ادن الان اخير عملنا ما هو الفرق بين هذين الحالتين والفرق اذا لم تلاحظه هو انه في الحالة الماس ي 
ES E Na EES Ga‏ 
اختيار في نفس الوقت من دون ان يعرضك او ان تواجهك اي مشاکل 


اما الخيار الثالث 
فهو الخيار الذي يحمل الاسم( لعل (x٥۸‏ 
والكود الخاص به هو الكود الاتي 


CODES) 


use TK; 

Ştop = MainWindow->new; 

Şa=$top-> Listbox(width = >30, 
-selectmode =>'extended’); 

Şa->insert(end!, 

"www.programming-fr34ks.net"", 

"www.seCcuritygurus.net'", 

"www.google.com", 

"www.yolinux.com'"', 

J; 

$a-> pack; 

MainLoop; 


هذا الخيار هو خليط من النوع الاول والنوع الثاني!!! 

اي انه يقبل ان تختار اكثر من اختيار واحد وهو في هذه الخاصية بشبة الخيار الثاني 

وهو في نفس الوقت لا يسمح لك ان تختار اكثر من خيار واحد 

ادن کیف هذا یحدث؟؟ 

العملية تتم كما يلي اذا قمت بالنقر على كل عنصر بصورة مستقلة فأنه سوف يقوم بأختيار كل عنصر 
واحد لكل عملية نقر ولکن اذا عملت(۸٥ )۸0/d‏ 

لزر الماوس وحركت المؤشر الخاص بالماوس الى الاعلى و الى الاسفل سوف تحصل على تأشير لأكثر من 
اختیار 
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ولن اقوم بادراج الصورة الخاصة به لانه لن تكون مفيدة 
الخيار الرابع 

فأنه من غير المفيد ان نتكلم عنه في الوقت الحالي لانه لن نحتاج اليه في الوقت الحاضر كل ما عليك ان تعرف 
ا 


(browse is very suitable with the bind operator)d! خیار‎ 


Scrolling In other way 
تعرفنا من خلال هذه التقنية ومن التفنية السابقة انه اذ اردت ان تقوم بأنشاء سکرول بار فأنه من الممكن ان تقوم‎ 
بذدلك من خلال استخدام التقنية المسماة بتقنية السكرول بار ولكن ما يحصل اذا لم تكن من محبي هذه التقنية فأن لغة‎ 
البيرل توفر لك بديل اخر يمكنك من القياك بعمليات الدرجة تؤدي نفس عمل تقنية السكرول بار ولكن باستخادم‎ 
CODES) 
use TK; 
$top=MainWindow->new; 
a= $top->Scrolled('Listbox",-scrollbars =>'e', 
-selectmode =>"single", 
J; 
Şa->insert(end!, 


II IT 


d, 
BT 
3 


$a-> pack; 
MainLoop; 


نأتي الى شرح هذا الكود وشرح اول فقرة 
CODE(G0)‏ 


a= $top-> Scrolled('Listbox",-scrollbars =>" 
-selectmode =>"single", 


9 


J; 


اذن لاحظنا من هذا البرنامج ان التقنية البديلة تدعى ب( م//اه/ءS)‏ 
والبيانات التي تحتويها في داخل البلوك البرمجي هي كألتالي 
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اولا معلومة مفردة لل(×0(اكءا!ا) 

حيث من خلال هده المعلومة المفدرة الخاصة بصندورق العرض فأن مترجم البيرل سوف يعلم انه سيتعامل مع 
صندوق العرض اما المعلومة الثانية هي الخاصة بالسكرول بارز وهذه الملعومة هي تحدد الاتجاه الخاص 
بالسكرول بار وسوف نناقش الخيارات الخاصة بهذا الامر بعد قليل تم المعلومة او الامر الاخير وهو نمط الاختيار 
وقد اخترناه على النمط المفرد وهذه المعلومة و الاوامر الملحقة بها قد تم شرحها بالتفصيل 

ومن تم نأتي الى الامر الخاص بالادخال وهو الامر(٤/ع۶١)‏ 

وهذا الامر سوف يتولى عملية ادخال النص الى صندوق العرض 

والان حينما نقوم بتنفيذ البرنامج سوف نحصل على الصورة الاتية 


FICURE(32) 
الان هذه الصورة الخاصة بتنفيذ البرنامج وعن نفسي انا افضل هذا النوع من السكرول بار اي انا من ناحيتي‎ 
افضل هذه الطريقة‎ 


How to delete 
الان عرفنا كيف يتم اضافة نص الى الصندوق العرض وذلك كما ذكرنا العملية تتم من خلال استعمال‎ 
(insert) 'لٺٺمر‎ 
ولكن بعد ان قمت بأدخال النص الى صندوق العرض لاحظت انه لديك خلل في احدى المعطيات او انه قد قمت‎ 
بكاتبة معلومات اكثر من اللازم لذا كان من الواجب عليك ان تغير بعض من هذه المدخلات اي انه اصبح من‎ 
الواجب عليك ان تمسح الاشايء الخطأ الموجودة عندك في صندوق العرض لذا فأن لغة البيرل قد وفرت لنا‎ 
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CODE(6) 


use TK; 

top = MainWindow->new; 

$a=$top->Scrolled('Listbox",-selectmode => ‘single’, 
-scrollbars => "e", 

J 


pa->insert(end'", 
rr rr 


d, 
"BT" 
9 


J; 
$a-> delete 
4,'end' 

J 
$a-> pack; 
MainLoop; 


هذا البرنامج واضح ولايحتوي على اي شئ جديد او معلومة لم تمر علينا سوف الفقرة الاخيرة و هي 
الفقرة الاتية في الكود الاتي 


CODE(62) 


$a-> delete 
4, end' 
J; 


حيث ان الية المسح تتم كما يلي انه البيرل تعمل اولا على تحديد الرقم الذي قمت بأعطاه ثم تعمل على عد اربع 
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FICURE(33) 
هذا اسلوب من اساليب استعمال هذه الخاصية اما الاسلوب الاخر هو من الممكن ان تقوم بمسح العنصر الاخير‎ 
فقط من البرنامج وتتم العملية كما يلي في هذا الكود‎ 


CODE(63) 


use TK; 

Ştop = MainWindow->new; 

Şa=$top->Scrolled("Listbox",-selectmode => ‘single’, 
-scrollbars =>"e"', 

J; 

pa->insert(end!, 

"qa", 

"hb 

C1 

"qd", 

"gr" 

"a", 

"h ا‎ 

j" 

J 

$a-> delete 

4, end" 

J; 

$a-> pack; 

MainLoop; 


كما نلاحظ انه الفرق الوحيد الذي حصل في البرنامجين هو انه تم الغاء الرقم 4 اي الرقم الذي حددناه و ان هذه 
الخاصية محددة بشكل افتراضي ان لم يتم تحديد رقم ان تقوم بمسح العنصر الاخير من صندوق العرض و 
الصورة الخاصة بتنفيذ البرنامج هي كالاتي 
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FICURE(34) 
نلاحظ الان من الصورة الخاصة بالبرنامج انه تم مسح السطر الخاص بالعنصر الاخير‎ 


تحديد العناصر من خارج صندوق العرض 

كما واضح انه من المعلوم لدينا انه من الممكن ان نختيار الملعومات التي موجودة لدينا في صندوق 

العرض من خلال النقر عليها وهذا يتم من خلال الامر ( "0d٥‏ )ءء/عء) 

وهاالایر وملاه ف رک اها قل فل رگن م الى بحصل ادا اردت أن اتر على الإسظر المرجرةة ااك 
في صندوق العرض من داخل البرنامج ومن دون استعمال الماوس وهذه العملية تتم كما يلي في هذا الكود 
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=> 'single', 
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CODE(64 


use TK; 

Ştop = MainWindow->new; 

$a=$top->Scrolled('Listbox",-selectmode 
-scrollbars =>"e"', 

J 


Şa->insert(end!, 
rr rr 


d, 
"hb 


J; 
Şa->selectionSet(2,'end'); 
Şa-> pack; 
MainLoop; 


يعمل على وفق نفس الاستراتيجية و اليكم الصورة الناتجة من تنفيذ البرنامج 


FIGURES) 
حيث في هذا البرنامج ايضا يعمل على عد سطرين ويعمل على تظليل الباقي‎ 
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How to activate the elements on the Iist DOX 
ان تقنية صندوق العرض في لغة البيرل تسمح لنا بان يتم تفعيل العنصر الذي تريد ان تقوم بتفعيله من‎ 
خلال استعمال خاصية التفعيل وذلك كما يلي في الكود الاتي‎ 


1 


CODE(6S) 


use TK; 

Ştop = MainWindow->new; 
Şa=$top->Scrolled("Listbox",-selectmode =>'e'); 
Şa->insert(end!, 

"abcde", 

"abcde", 

"abcde", 

"abcde", 

"abcde", 

"abcde", 

"abcde", 

"abcde", 

"abcde", 

J; 
$a->activate(3); 
$a-> focus; 

$a-> pack; 
MainLoop; 


ان هذا الكود قمنا من خلاله بتحديد ان العنصر الذي نريد ان نقوم بتفعليه هو العنصر الثالث فأن الناتج من هذا 
الكود هو انه يتم عد 3 عناصر وتفعيل السطر الرابع و الناتج من تنفيذ هذا البرنامج هو الصورة الاتية 


AICURE(SO) 


الان من بعد ان انتهينا من برمجة كل ما يتعلق ببرمجة السكرول بار بصورة مفردة و صندوق العرض والسكرول 
بار بشكل مزدو ج حان الوقت لكي نقوم بالانتقال الى تقنية جديدة هي هي تقفنية النص 
وان تقنية النص تعتبر من اهم التقنيات التي ومن اكثرها قوة لما تحتويه من قدرات وامكانيات كما سوف نلاحظ 
على طول الصفحات القادمة 
سوف نأخذ الان كود مثالي يوضح كيف يتم تكوين منصة ال( ×ه)) 
والیكم الكود 
CODE(60)‏ 
use TK;‏ 
Ştop=MainWindow->new;‏ 
Ştop-> Textcwidth => 20, -height => 10)->pack;‏ 
MainLoop;‏ 


لاحظنا من خلال هذا البرنامج ان السطر المسئول عن تكوين منصة النص هو السطر التالي 
CODE(67)‏ 
Ştop-> TextCcwidth => 20, -height => 10)->pack;‏ 
هو هذا السطر المسئول عن تكوين منصة النص و الان لو نفذنا البرنامج لكان الناتج منه هو الصورة الاتية 


FIGURES) 
ااا ا د وک عل م ال ا ن سف ل اي اض اس اف اد‎ 
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Advanced feature of text widget 
من الخصائص المتقدمة لتقنية النص في لغة البيرل هي انه تحتوي على عدد كبير من الخصائص ومن هده‎ 


الخاصية الاولى 
من الخصائص التي شرحناها ومن الممكن ان يتم تطبيقها في تقنية النص هي 
1-relief‏ 
2-background‏ 
3-foreground‏ 
4-ınsertontıme‏ 
5-Iinsertofftime‏ 
6-state‏ 
7-font‏ 
8-high‏ 
9-width‏ 
10-selectbackground‏ 
11-selectforeground‏ 
جميع هذه التقنيات قد سبق وان قمنا بشرحها والان نعلم ماهي اساليب عملها وكيف من الممكن ان يتم ادخال 
المتغيرات و الخيارات التي تكون ملحقة بها ولذلك ايضا شوف لن اقوم بشرحها 


اما عن التقانات الاخرة فسوف نستعرض اغلبها من خلال الكوادت التالية اما الان فسوف نلتحق بتقنية جديدة تشبه 
هذه التقنية هى تقنية ال 


الخاصبة الثانية 
EN NET O N CG‏ 
عملية ادخال النص تتم كانت تتم في تقنية صندوق العرض من خلال الامر (۸86/۲/) 

RE EE, 
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CODE(GS) 


use TK; 
Ştop = MainWindow->new; 
Şa=$top-> Textcheight =>10, 
-width = >40, 

J 
Şa->insert(end", 
"www.programming-fr34ks.net , www.securitygurus.net"", 
J; 
$a-> pack; 
MainLoop; 


وان ناتج تنفيذ هذه العملية يكون كما في الصورة الاتية 


الا اكا 


mmr. proqrammIing-frd34k3. net , 
TIULCUS. HEL 


FIGURES) 


العملية بسيطة وتتم كما كانت تتم من خلال صندوق العرضص 
الان انتهينا من بعد شرح تقنية النصوص الان سوف ننتقل الى تقنية اخرى مشابهة لهذه العملية 


هذه التقنية تعطيك اسلوب اخر من اساليب عنونة النصوص في منصات النصوص وهذه التقنية تقوم بمهمات تغير 
مظهر النص وتغير لون النص وتلوين حجم النص يعني يمكن القول انها تعمل على تغيير خصائص النص 
الان سوف نأخذ بعض البرامج المختلفة لكي نرى امكانيات هذه التقينة 


البرنامج الاول 
اليكم البرنامج ومن ثم نناقش اسلوب عمله 
CODE(69)‏ 


use TK; 

$top=MainWindow->new; 

Şa=$top-> Text(O; 

Şa->tagConfigure(bold', -font =>'arial 16 bold’); 
Şa->insert("end","spawn is perl programmer ,\n",'bold’); 
Şa->insert("end","spawn is perl programmer"); 

$a-> pack; 

MainLoop; 


هذا البرنامج هو برنامج جميل وان كان يدل على شئ هو يدل على مدى مرونة القدرات الملحقة مع لغة البيرل 
والان نأتي الى شرح البرنامج 
الخطوة الاولى 
CODE(70)‏ 
$a=$top-> Text(O;‏ 


هذه الخطوة هي عبارة عن الخطوة التي تكون مسئولة عن تكوين المنصة الخاصة بتقنية ال( ×ه)) 
هذه هي عمل اأخطوة الاق 
الخطوة الثانية 
CODEZ7D)‏ 
$a->tagConfigure(‘bold', -font =>'arial 16 bold’);‏ 
هذه الخطوة عملها هي انها تعمل على تعريف ال(وه) ×م)) 
اما عن المعلومات الموجودة من داخل البلوك البرمجي هي 
اولا تحديد نمط الخط وقدد حددناه هنا من النمط العريض 
ثانيا تحديد اسم الخط وهذا تم من خلال تحديد اسم الفونت الذي ترغب به 
الخطوة الثالثة و الخطوة الرابعة كلاهما نفس الشئ وسبق ان شرحنا عمل اداة الاضافة(٤/ع۸8/)‏ 
ولكن الذي احب اضيفه انه في الجملة الاولى تم اضافة كلمة(ل/اهط) 
حتی مترجم البيرل يعرف اہ هذه الجملة يجب ان تخرح بالنمط العريض عندما يتم تنفيذ البرنامج ولان 
و بعل ان تم تنفيذ البرنامج اليكم الصورة الخاصة د بتنفيد البرنامج 
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ت اط ا 
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spawn Is perl programmer , 
PEGI AMMEL 


apawn 13 perl 


AICURE(S9) 


في هذه التقنية من اسلوب الكاتبة في لغة البيرل يوجد لدينا خاصيتان هما خاصيتان معروفتان ولكن لم يمرا علينا 


وهاتان الخاصيتان هما 


واليكم الكود الخاص بهاتان الخاصياتان 


الفقرة الاولى 


1-underline 
2-overstrike 


CODE(72) 


use TK; 
Ştop = MainWindow->new; 
Şa=$top-> TextO; 


Şa->tagConfigure(overstrike',-font => 'arial 16 overstrike'); 


$a->tagConfigure(underline',,-font => 'arial 16 underline’); 


Nr Tf 


Şa->insert(end',"spawn is perl programmer\n",'overstrike'); 
Şa->insert(end',"spawn is perl programmer",'underline'); 
$a-> pack; 


MainLoop; 


CODE73) 


Şa->tagConfigure(overstrike',-font =>'arial 16 overstrike'); 


هذه الفقرة البرمجية تكون مسئولة عن وضع خط خلال النص الذي نقوم بكتابته 


الفقرة الثانية 


CODE74) 


$a->tagConfigure(underline',,-font => 'arial 16 underline’); 


الفقرة هذه مسئولة عن كتابة النص ويكون نوع النص من النوع الذي تحته خط 


الفقرة الثالثة و الرابعة هما نفس الفقرة 
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حيث نقوم من خلال الامر المسئول عن ادخال النصوصو وهو الامر(٤/6١١!)‏ 

ALE N o E O GS a 
الحال مع نهاية هاتين الفقريتن‎ 

E N a O aS 


ع8 
saw HEEEaEkErEGgEaARaAEAEE‏ 
spawn Is perl programmer‏ 


FIGURE(+0) 
الان بقيت في هذا الموضوع تقريبا فقرتين احب ان انوه اليها الفقرة الاولى وهبي متعلقة بالخيارات التي لها صلة‎ 
بالالوان حيث ان الذي اريد من هذه الفقرة هو فقط جلب الانتباه الى ما يحصل في خيارات الالوان المتعلقة بهذه‎ 
التقنية حيث انها لها اسلوب عمل مختلف‎ 
اليكم الكود الخاص بهذه الفقرة وهو الكود الاتي‎ 


CODE7S) 


use TK; 
Ştop=MainWindow->new; 
Şa=$top-> TextÛO; 


Şa->tagConfigure(‘background',-background => 'blue’); 
Şa->insert('end","It’s LinuX It’s The Open World It’s Freedom", background"); 
$a-> pack; 


MainLoop; 
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ا‎ E.R و‎ 
بالات سے ت‎ 


It 3 Linu It s3 The Open World It s3 Freedom 


FICURE(A) 
الان على كل عندما نأتي الى تنفيذ البرنامج يكون ناتج تنفيذ البرنامج كما في الصورة التي في الاعلى‎ 
اال اران تى ف :لامد مل غل نة االصن الك ب ف ال ر لدو كل‎ 
(fag Conf|وurع المنصة لانه هذا الخيار هو خيار خاص بال(‎ 
وليس خيار خاص بمنصة ال( ×ع))‎ 
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How to use ur own varıable 
من الممكن ان نقول ان هذا الموضوع هو من اهم المواضيع الموجودة في هذه التقنية بسبب انه من الممكن ان تقوم‎ 
انت باستعمال متغیرات انت الذي تقوم بتحدديها وذلك لانه هذه الخاصية لها اسلوب خاص في العمل وهو اسلوب‎ 
فرید بها لايتم استعماله في اسالیب و تقنیات اخری‎ 
الان سوف نأخذ كود من الكودات التى سبق وان قمنا بشرحها لكي نفهم مالذي تقوم به هذه الطريقة‎ 
TODE(70) 
use TK; 


top = MainWindow-> new; 
$a=$top-> Text(O; 


pa->tagConfigure(background',-background => 'blue'"); 
Şa->insert("end","It’s LinuX It’s The Open World It’s Freedom", background’); 
$a-> pack; 

MainLoop; 


هذا الكود هو نفس الكود الذي قمنا باستخدامه في الكود البرنامج السابق لغرض فهم عملية تغيير الخلفية الخاصة 
بالبرنامج اما الان الذي نريده من هذا البرنامج هو مختلف تماما 
الان لنركز - هده الخطوة الموجودة في هذا الكود 
CODE(77)‏ 
Şa->tagConfigure(background',-background => 'blue'");‏ 
pa->insert('end","It’s LinuX It’s The Open World It’s Freedom", background’);‏ 
في الخطوة الاولى من البرنامج نلاحظ انه قد قمنا بتعريف ال( ur٥‏ وا۸۴ ٥cوtag(‏ 
حيث حددنا في البداية كلمة ال)background(‏ 
ومن تم استعملنا الامر (background)‏ 
ومن ثم قد قمنا باعطأه قيمة اللون الازرق 
الى حد الان لم يطرأً شئ غريب 
الخطوة الثانية هى 
استعملنا امر الادخال الخاص بالنص من خلال خاصية الادخال(۲٤/٥۸8)‏ 
ومن تم حددنا النص الذي نريد ان نقوم بادخاله ولكن بعد ان حددنا النص وضعنا فارزة ومن ثم ايضا 
وضiz‏ كأمة (background)‏ 
على کل اذا لاحظت انه کل من کلمتي ال( ۸d‏ ںہ )5a٤c)9‏ 
في كلتا الحالتين كانتا هذان الكلمتان في وضع ال( )s٤/۸9‏ 
اي كانت موجودة بين علامات الاقتباس 
ولك واحد يعرف انه فى لغة البيرل كل كلمة مهما كانت عندما تكون موجودة بين علامات الاقتباس تكون سلسلة 
نصية ٠‏ 
ما ارمي اليه من هذه النقطة هو انه ماذا يحدٿ لو غير نا كلمة( (background‏ 
في كلتا الحالتين الى كلمة 
IiINnUX‏ 
spawn‏ 
perl‏ 
او الى اي د اخر مالدي سوف يحدث ؟؟ 
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بالتاكيد لاشئ لذا فأنه من الممكن لك ان تغير هاتين الكلمتين الى اي كلمة ترغبها كما في هذا الكود‎ 


CODE7S) 


use TK; 

Ştop = MainWindow->new; 

Şa=$top-> TextO; 

Şa->tagConfigure('spawn",-justify = >center); 
Şa->insert("end", 

"It s LinuX It s The Open World It s Freedom","spawn"); 


$a-> pack; 
MainLoop; 
قبل ان نتكلم عن هذا البرنامج سوف نقوم بتنفيذه ونرى ناتج تنفيذه و الان اليكم صورة البرنامج‎ 
FIGCURE(42) 
حان الوقت لكي نتكلم عن البرنامج‎ 
CODE(79) 
Şa->tagConfigure('spawn",-justify = >center); 


قمنا في هذه الخطوة بتعريف ال( re‏ uو/اnf٬tagco(‏ 

اليكم ما هي اهمية كلمة(4م8) 

کی الف اا من ای رھ با مرن تی مخخورر جن عات ای حت ت درن 
الخيارات التي ترغب في تطبيقها على النص 

ومن ثم من خلال امر الادخال(۸6/۲) 

نقوم بادخال النص الذي نرغب فيه ومن ثم بعد ذلك نقوم بعملية استدعاء للمتغير الذي استعماناه لكي يتم تطبيق 
الاوامر او الخيارات التي نرغب في ان يتم تطبيقها على النص 

ملاحظة هذا الكلام الذي ذكرته عن(" سهمء) 

هو ليس كلام خاص بل كلام عن عن كل المتغيرات الموجودة في البرامج الموجودة في الاعلى 

وملاحظة اخرى عن الخيار الذي يحمل الاسم(رfناusز)‏ 

هذا الخيار هو خيار خاص بترتيب النص الذي تقوم بادخاله وهو خيار ب 3 احتمالات وهي كالتالي 
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1-right 
2-center 
3-left 
الاول مسئول عن عرض النص من جهة اليمين‎ 
الثاني مسئول عن عرض النص في منظقة المنتصف‎ 
الثالث مسئول عن عرض النص من جهة اليسار‎ 


تقنية ال( ٥/هءی)‏ 

او ما يعني في العربية مقايس التدرج او المقياس على كل هذه التقنية تشبه نوعا ما تقنية السكرول بار ولكن السكيل 
لاتعمل سكرول لشي اي انها لاتحرك النوافذ الى الاعلى او الى الاسفل مثل نوافذ السكرول بار ولكنم الذي تعمله 
هو ان تعمل سكرول لنفسها 


How to create a scale 
الان سوف ناخذ برنامج لعمل(ع/هءء)‎ 
نموذجي اليكم الكود الخاص بهذه العملية‎ 
CODE(EO) 
use TK; 
Ştop = MainWindow->new; 
$a=$top->Scale(); 
$a-> pack; 
MainLoop; 


کود بسیط لا یحتاج الى شرح عمله کل ما یقوم به هو تکوین(٥/2ی)‏ 
لاأكثر و لا اقل اليكم الصورة الخاصة بتنفيذ البرنامج 


FIGURES) 
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Scale options 


ان تفنية ال(ع/هء) 
کا کل انات لاخر حا ا الاد من التصاضص ال الرة عل الفا اغا 
يات الآاخرى حد ید من ئص التي یم 


بمرونة اكثر 
الخاصية الاولى 
هنا مثل كل مرة سوف نضع الخواص المشتركة مع الخواص الاخرى و التي سبق و ان قمنا بشرحها 
1-font‏ 
2-relief‏ 


3-background 
4-foreground 
o-label 
6-orient 
7-width 
8-horizontal 
9-state 
10-highlightbackground 
12-highlightthickness 
13-highlightcolor 
الخاضة النانة‎ 
في هذه الخاصية سوف نعمل على تحديد المعيار الخاص للتقنية ال(ع/عءى)‎ 
والذي نريده منها ان تعمله يعني هي مبرمجة افتراضية ان تبدأ من الصفر الى حد المئة ولكن اذا اردنا ان نغير‎ 
هذه الخاصية يتم التغيير من خلال هاتين الخاصيتان كما في هذا الكود‎ 
CODEE) 
use TK; 
$top=MainWindow->new; 
$a=$top->Scale(-from =>0,-to0 => 75); 
$a-> pack; 
MainLoop; 


ومن خلال هذا الكود قمنا بتحديد نقطة البداية من خلال الخیار )١٥۸١(‏ 
وحددنا النهاية من خلال الامر(ه)) 
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FIGURE(44) 


واليكم الكود الخاص بهذه العملية 


الخاصية الثالذة 
طبعا هذه الخاصية من افتراضية مبرمجة اي انه من مجرد ان تنفذ الكود الذي يحتوي على تقنية ال 
(Scale)‏ 
فان هذه القيمة تكون مفعلة ولكن هنا ألان لست بصدد شرح ماهو دورها اذا كانت مفعلة و لكن ماهو 
دورها اذا كانت معطلة وهذه الخاصية هي خاصية ال( عeںام۷س۸owWء)‏ 
والیكم الخاص بتعطيل هذه الخاصية 
CODE(E2)‏ 


use TK; 

Ştop = MainWindow->new; 

$a=$top->Scale(-from =>0,-to =>100,-showvalue =>0); 
$a-> pack; 

MainLoop; 


الان عندما نقوم بتنفيذ البرنامج نلاحظ الصورة الناتجة من تنفيذ البرنامج هي الاتي 


FIGURES) 
اذن نلاحظ من خلال صورة البرنامج انه القيمة التي كانت تظهر بجوار السكيل اختفت اي انه هذه الخاصية هي‎ 
تكون مسئولة عن اظها ر هذه القيمة الي عندما تكون 1 تظهر القيمة الخاصة بال(ع/هءء)‎ 
واذا كانت القيمة صفر كما هو الكود السابق سوف تؤدي الى اختفاء القيمة كما لاحظنا‎ 
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الخاصية الثالثة 
هذه الخاصية تعمل على تقسيم ال(ع/هءء) 
وفق تقاسيم رقمية انت تحددها وفق ما تريد لكي تعرف في اي موضع الفكرة لهذه الخاصية تصل افضل من خلال 
الكود الاتي 
CODES)‏ 


use TK; 

Ştop=MainWindow->new; 

Şa=$top-> Scale from =>(0,-to =>1000,-showvalue =>1,-tickinterval= > 100,-length 
= >1000,-orient => 'horizontal"); 

$a-> pack; 

MainLoop; 


هذا الکو د كما اضخ بحتو ی عدد لايا به من ١‏ مات داخل البلوك البر مجي الخاص به ود 
هو واصح يلوو س بھہ مں مجي الحاص به وسرح 
-from‏ 
تحديد نقطة البداية 
-O‏ 
تحديد نقطة البداية 
-Showvalue‏ 
اظهار القيمة بجانب ال(ع/هءء) 
-tickinterval‏ 
الخيار الذدى كنا نتحدث عليه الخيار المحدد لهذه الخاصية حبث نلاحظ انه ال(٥اكةعك‏ 
وهو الحيار الدى يه وهو الحيار يه حڊ 
ونلاحظ انه بجانب هذا الخيار يوجد 
رقم ال 100 
ونفس الوقت انه لدينا نقطة البداية من 0 الى 1000 ويوجد تحت ال(ع/اهءء) 


ارقام اخری 

تكرر كل زاد الرقم مقدار 100 اي انه هذا الخيار الخاص بتقسيم ال(ع/هء8S)‏ 

الى عشر مناطق كل وذلك لانه هذا الخيار يحمل الرقم مئة ولو كان يحمل رقم خمسين مثلا كان الرقم 
الذي يتكرر تحت ال(ع/هءء) 

هو خمسین اذن وظفته هو تقسیم ال(٥/2عی)‏ 

الى ماظن ت حدما من خلال ف الخار 


-orlent 
)یھ/٥ موقع ال(‎ 
افقی او عمودي‎ 
-length 
الطول الخاص بال(ع/هءء)‎ 
واليكم الصورة الخاصة بهذا الخيار‎ 
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FIGURE 46)‏ 
الخاصية الرابعة 
هذه الخاصية خاصة بال( عل/ای) 
الخاص بال(ع/ھعء) 
وكيف يتم تغييرطوله كما تريد و اليكم الكود الخاص بهذه العملية 
CODE)‏ 
use TK;‏ 
Ştop = MainWindow->new;‏ 
Şa=$top-> Scale from =>0,-to =>1000,-showvalue = >1,-tickinterval= > 100,-length‏ 
>1000,-orient = > 'horizontal",‏ = 
-sliderlength=>100);‏ 
$a-> pack;‏ 
MainLoop;‏ 


الصورة الخاصة بتنفيذ الكود هي 
× اك ا- 


FICURE(47) 
)sاا‎ ٥۲ط طبعا من النظر نلاحظ کم تغیر طول ال(2۲‎ 
بالمقارنة من البرنامج الماضي علما في الحالتين قمنا بتنفيذ نفس البرنامج‎ 


في هذا الموضوع نقوم بمناقشة ما يتعلق بالاطارات و ال(ء/م۷عامه)) 
طبعا الاطارات في لغة البيرل وضعها الافتراضي هو انه لايوجد تعبير بصري لها اذا تركت على وضعها 


ك e‏ اذا ان تعمل اطأر ويکون له تأثير بصر ي فأنه لابد لك ان تعمل علی تغییر الاعدادات 


والان اليكم البرنامج الخاص بهذه التقنية و هو كما يلي 
CODES)‏ 


use TK; 

Ştop = MainWindow->new; 

Şa = $top-> Frame(borderwidth => 2, -relief => 'groove'’); 
$a-> Button(text => 'hello world')-> pack; 

Şa-> Button(text => 'hello world')-> pack; 

$a-> pack; 

MainLoop; 


نلاحظ تقنية جعل الاطار مرئي هي خاصية ال(۴/ع/ه/) 
والصورة الناتجة من تنفيذ هذا الكود هي 


"F/CUREOS) 
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[oplevels 


لكي تقوم بعملية استدعاء ال(/٥۷٥/مه)ا)‏ 
فأن عملية الاستدعاء الخاصة بهذه التقنية لا تتم بصورة مباشرة بل تتم من خلال منصة يمكن القول 
انها المنصة الاولى التي من خلالها يتم استدعاء ال(/٥۷ع/مه))‏ 
وعملية استدعاء ال(/ع۷ع/مه)) 
تتم كما يلي في هذا الكود 
CODE)‏ 


use TK; 

$top= MainWindow->new; 

Stop-> title('"MainWindow"); 

$top-> Button(text = > "Toplevel", -command => \&do_Toplevel)->pack(); 


MainLoop; 
sub do_ Toplevel { 
if (1 Exists($tD)) { 
$tl = $top-> Toplevel); 
$tl->title("Toplevel"); 
Ştl-> Button(text = > "Close", 
-command => sub { $tl->withdraw })-> pack; 
1 


والان نأتي الى شرح الفقرة الاولى من هذا البرنامج وهي كما يلي 
CODE)‏ 
$top-> Button(text => "Toplevel", -command => \&do_Toplevel)->pack(;‏ 
هذه الفقرة بسيطة من خلالها يتم تكوين زر عادي يكون النص الذي يحمله هر (/ع۷ع/مه)) 
ومن خلال استعمال الامر الخيار ( ۸4 )c٥۸۱۸٣2‏ 
الذي نلاحظ انه يقوم باستدعاء روتين فرعي ومن ٿم ينتهي عمل هده الفقرة من البرنامج على كل يعني 
هذه الفقرة من البرنامج فقرة بسيطة اما الان نأتي الى فقرة الثانية وهي 


CODES) 


sub do_ Toplevel { 
if (1 Exists($tD)) { 
$tl = $top-> Toplevel); 
Stl->title("Toplevel"); 


1 
1 


شرح هذا الرويتن الفرعي هو كما يلي 
اذا كان المتغير الذي نعمل عليه موجود فأنه سوف يتكون لذينا ما يلي 
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CODE(S) 
Stl = $top-> Toplevel); 


تتكون نافذة جديدة من نو ع ال(/ع۷ع/مه)) 
ثم بعد ذلك یکون 
CODE(90)‏ 


$tl->title("Toplevel"); 


ثم ان هذه النافذة التي تكونت سوف تحمل الاسم(/ع۷ع/م٥))‏ 
الخطوة الاخرى 
CODE)‏ 
Ştl-> Button(text = > "Close",‏ 
-command => sub { $tl-> withdraw })-> pack;‏ 
الان سوف يتكون لدينا زر عادي اخر يحمل كلمة اغلاق على سطحه ومن ثم استعمال الامر او الخيار 
كوماند حيث نلاحظ انه يحمل روتين فرعي اهمية هذا الرويتن الفرعي سنشرحها بعد قليل 
الان سوف نرى ما هي الصورة الناتجة من تنفيذ البرنامج ۰ 
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FICURE(49) 
(toplevel)d' الان هذه الصورة الاولى من البرنامج اي انه هذه الصورة الخاصة بالبرنامج قبل ان يتم استدعاء‎ 
))٥م/ع۷٥/(لا الان سنرى صورة البرنامج من بعد ان یتم استدعاء‎ 


FIGURE(SO) 


هذه هي صورة البرنامج بعد ان تم استدعاء ال(/ع۷٥/مه٥))‏ 

اي ان القسم الثاني من الصورة هو ال(/ع۷ء/امه)) 

EN TID TSI 

على کل الان سنرجع قلیلا ۴ لوراء وهي ان خيار الكوماند كان مسند اليه قيمة روتين الفرعي 
نلاحظ في نافذة ال(/ ۷۵ عام ه)]) 

يوجد زر الاغلاق واذا قمنا بالضغط على زر الاغلاق ستم اغلاق نافذة ال(/ع۷ع/مه)) 
لوحدها اذن هذه وظيفة الرويتن الفر عي الموجود في ال(/ع۷ع/مه)) 

وهنالك من يقول لماذا لانقوم باسناد الروتين الفر عي(٤/×ع)‏ 

الى خيار الكوماند بدلا من الخيار المسند اليه وهو ال( )wi٤۸ daw‏ 

ولكن الفرق بين هذين الروتينين الفرعيين هو انه الأول اي ال(٤أ×ه)‏ 

يعمل على اخراجك من البرنامج كله اي يتم اغلاق البرنامج 

اما الرويتن الثاني فأنه يعمل على اغلاق ال(/٥۷٥/مه))‏ 

لوحدها والنافذة التي تم استدعاء ال(/٥۷ع/م٥))‏ 

منها سوف تبقى موجودة ولايتم اغلاقها 


هذا الجابتر من الكتاب يشر ح ماهي ال)n1 (menu i‏ 
ولمن لايعرف ماهي (menu ite m)d|‏ 
هاهي في الصورة الاتية و لو انا متأكد انه الجميع يعرفها 


e CC RTT E 
E New... Ctrl+N 
Ww Gpen... CtrNI+O 


'' Open Location... 


ا 


Open Recent 
AC qUİIrE 


Preferences 
Dialogs 


! Quit Ctrl+Q 
FIGURES) 


هذه هي ال( ں۸ )۳٣٥‏ 

الى اتکلم عنھا وعلی کل هذه القائمة الخاصة ببرنامج الجمب الذي عندي 

اضافة الى هذه القائمة سوف نناقش انواع اخرى من القوائم اضافة ال القوائم الكلاسيكية المعروفة على كل 
سنتعرف اكثر عن القوائم مع الكودات الاتية في الصفحات التالية 
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How to create menu 

في هذا البرنامج سوف نقوم بكتابة برنامج يقوم هذا البرنامج بتكوين قائمة بسيطة جدا لكي نعرف كيف تكون 

القائمة في البيرل على كل الكود الخاص بهذه العملية هو الكود الاتي 

CODE(92) 
use TK; 
top = MainWindow-> new; 
$top->configureCmenu => my $menubar = $top-> Menu); 
my $file = $menubar->cascade(-label => '~File’); 
MainLoop; 


شرح هذا الكود هو كالتالي الفقرة الاولى 
CODE 93)‏ 


$top->configureCmenu => my $menubar = $top-> Menu); 


هذه الفقرة مكونة من الخيار 
-mMmenu‏ 
E DC I CO‏ 
البرنامج اما الجزء الثاني من هذه الخطوة فسوف اتركه لكي أشرحه بعد قليل 
الفقرة الثانية من البرنامج هي 
CODE(94)‏ 


my $file = $menubar->cascade(Clabel => '~File’); 


اما عن هذه الخطوة فأنها تكون مسئولة عن تكوين القائمة من خلال المتغير الذي اعتمدناه في الخطوة 
السابقة حيث من خلال المعرف(ع٥ل2dعءasء)‏ 

نعرف ال([٥طھ/)‏ 

الخاص بهذه القائمة الان ننفذ البرنامج ومن التنفيذ نحصل على الصورة الاتية 
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FIGURES 


هذا هو الناتج من تنفيذ البرنامج السابق 
ولكن نلاحظ ان هذا البرنامج نوعا ما تركيبته غير مفهومة وتحتوي على بعض التراكيب الجديدة لذا من الممكن ان 
نقوم باعادة صياغة البرنامج اعلاه بالشكل التالي ليكون كما يلي 
CODE 9S)‏ 
use TK;‏ 
Ştop = MainWindow->new;‏ 
Şmenubar=$top-> Menu;‏ 


$top->configure((menu =>$menubar); 
$file=$menubar->cascadeClabel=>"~file"); 
MainLoop; 


TSS GS CG ES eG هذا‎ 
TC N RT N A RT ET ET ET 


الان سوف نأخذ برنامج اخر ولكن متقدم قليلا حيث انه يحتوي على بعض الخصائص الاخرى 
الخاصية الاولى 
هذه الخاصية هي خاصية اضافة عنصر الى القائمة التي برمجناها و العملية تتم كما يلي اليكم الكود الخاص بها 
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CODE) 


use TK; 
top = MainWindow-> new; 
Şmenubar=$top-> MenuÛ; 


Stop->configureCmenu = >Şmenubar); 
$file=$menubar->cascade(- label => "~file"); 
$new=$file->cascadeClabel =>"~New"); 

MainLoop; 


الان لو قمنا في تنفيذ البرنامج سوف نلاحظ انه من خلال القائمة التي تحمل الاسم فايل سوف يتم يتم 
انسدال خیار اخر ھو خیار ال( )۸٥W‏ 
وهذه الخيار الذي كان مسئول عن تكوينه 
CODE 97)‏ 


$new=$file->cascade(Clabel =>"~New"); 


هنالك فقرة واحدة احب ان انبه اليها بشده وهي انه مهما كانت الخيارات التي او الاوامر التي ترغب في ان تقوم 
باضافتها الى القائمة الواحدة يجب ان يكون التعريف الخاص بالمتغيرات يكون من خلال المتغير الذي تم اعتماده 
في البداية لكي هو مسئول عن تكوين القائمة الاساسية يعني سوف اوضح الكلام على هذا الكود 
يعني في برنامجنا السابق كانت القائمة الاساسية في البرنامج هي القائمة التي كانت تحمل الاسم( ع/أ٣)‏ 
واذا قمت بالكبس عليها فأن القائمة المنسدلة منها تحمل الاسم نيو اليس كذلك؟؟ 
اذن القائمة المنسدلة نيو هى قائمة معرفة داخل القائمة ملف لذا يمكن القول انه القائمة نيو هى قائمة 
داخل القائمة ملف ولهذا تم تعريف القائمة نيو من خلال استعمال المتغير 
الذي كان قد تم استعماله من قبل لكي يتم تكوين القائمة ملف 
CODES)‏ 


Şnew=$file->cascadeClabel =>"~New"); 


ولذا انظر انه من خلال المتغیر ( ۸٥W‏ $) 
استعملنا المتغير (ع///$) 
لكي يكون مساهم في تكوين القائمة الجديدة نيو ولا يجوز ان يتم استعمال متغير اخر 


الخاصية الثانية 
و هده الخاصية هي نوع من الخاصيات الت تعني تامور الفصل بین (items)d'‏ 
الموجودة في القائمة التي برمجتها وهي تكون كالتالي 
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CODE 99) 


use TK; 
top = MainWindow->new; 
Şmenubar=$top-> MenuÛ; 


Ştop->configureCmenu = >$menubar); 
$file=$menubar->cascade(C label => "~file"); 
my $new = $file->cascade( 

-label => 'New', 
J 


$file->separator; 
open =$file->cascade( 
-label => "Open", 
J; 


MainLoop; 


من النظرة الاولى من البرنامج نلاحظ انه تقريبا لايحتوي على شي يختلف نوعا ما عن البرنامج 
السابق ولكن سوف نعمل)wضOvervi (quick‏ 


CODE(100) 
$file=$menubar->cascade(clabel => "~file"); 
تكوين القائمة الاولى او القائمة الاساسية و التي تحمل اسم(م/ا)‎ 
الفقرة الثانية‎ 
CODE(10) 
my $new = $file->cascade( 
-label => 'New', 
J; 
اما عن هذه الفقر ة فهي تكو ين القائمة الثانبة التي تكو ن منسدلة من القائمة الا‎ 
عں فھي دحویں . ي ل مں و‎ 
الفقرة التالثة‎ 
CODE(1I02) 


$file->separator; 
نرجع لهذه الفقرة بعد قليل‎ 
الفقرة الرابعة‎ 
CODE(103) 
popen=$file->cascade( 
-label => "Open", 
J; 


هذه الفقرة هي تكون مسئولة عن تكوين القائمة المنسدلة الثانية من القائمة الاساسية الاولى 
اما الان سنرى ما هو ناتج تنفيذ البرنامج لنرى مالذي سوف يحدث 
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HEY 


pen E 


FIGURES) 
)۸ہعWس(لا هذا هو ناتج تنفيذ البرنامج ونلاحظ الان في الصورة يوجد خط فاصل بين القائمة الاولى‎ 
والقائمة الثانية(ع|ا۴)‎ 
وهذا الخط الذي نتكلم عنه هو الخط الناتج من جراء استعمال هذا الكود‎ 
CODE(104) 


$file->separator; 


هو الذي آدی ظهور هذا الأخط 

HINT 
عندي تلميح احب ان اشير اليه وهذا التلميح هو انه لا يظن البعض ان الناتج من تنفيذ الكودات الموجودة في‎ 
الاعلى هو الاتي‎ 


HEYI 


pen E 


FIGURES 


ولكن الناتج من تنفيذ البرنامج هو يكون كما الاتي في هذه الصورة 
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FIGURES) 


الخاصية الثالذة 
هنا الان سوف نقوم بعمل توسع قليلا في القوائم ونأخذ اكثر من خاصية على كل اليكم هذا الكود 
CODE(/05)‏ 


use TK; 
Ştop = MainWindow->new; 
Şmenubar=$top-> Menu; 


Ştop->configureCmenu = >$menubar); 
$file=$menubar->cascade( 
-label => "File", 
J; 
Şnew=$file->command 
-label = > 'New' 
J; 


$file->separator; 
Şopen=$file->command( 


-label => "Open", 
-accelerator =>"Ctrl-o", 
-underline =>0, 

J; 


MainLoop; 
الان سوف نعمل على مناقشة الامور الجديدة التي يحتويها البرنامج الجديد‎ 
الفقرة الاولى‎ 
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CODE(106) 
Şopen=$file->command( 
-label => "Open", 
-accelerator =>"Ctrl-o", 
-underline =>0, 
J; 
هذه هي الفقرة الوحيدة الجديدة في البرنامج و التي لم نتطرق اليها من قبل‎ 
الجزء الاول من الفقرة الاولى‎ 
CODE(107) 


Şopen=$file->command 
ان سبب استعمال هذه الامر هو لغاية القدرة على تطبيق بعض الامرو و الخصائص البرمجية التي لا نكون قادرين‎ 
على ان نطبقها من خلال الامر‎ 


CODE(10S) 
cascade 

الجزء الثاني من الفقرة الاولى 
CODE(109)‏ 
-label => "Open",‏ 

هي الفقرة التي تكون مسئولة عن اعاطء الاسم للقائمة التي نعمل عليها 

الجزء الثالث من الفقرة الاولى 

CODE(11/0) 


-accelerator =>"Ctrl-o", 
(shorcut)slطع|‎ yJe Jمعت كما هو واضح انه هذه الفقرة‎ 
للفائمة الق برمجناها‎ 
الجزء الرابع من الفقرة الاولى‎ 
CODED) 


-underline =>0, 


هذه الفقرة تكون مسئولة عن وضع خط تحت الحرف الأول من القائمة 
واليكم الصورة الناتجة من تنفيذ البرنامج وهي كما الاتي 


Hey 


Upen Cirl-0 


FIGURES) 
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هذه هي الصورة الخاصة الناتجة من تنفيذ البرنامج وايضا هنالك فقرة اخرى هي انه نحن لم نقوم ابدا باستعمال 
الامر 
CODEIIZ)‏ 
title‏ 


ای ما أعنيه انه لم نستخدىم الامر الخاص بوضع عنوان للبرنامج اذن عليك ان تعلم ان اسم هذا البرنامج هو ت 
م اور حاص وحن وان و ا ا مچ هو 
وضعdefault)a (by‏ 


ا 
في هذه القائمة سوف نقوم بعمل اضافة قائمة جديدة الى القائمة القديمة ومن خلال هذه العملية سوف تتضح لنا 
بعض الفقرات التي لم تتضح لنا من خلال البرنامج او البرامج الماضية 

واكم الكرد الخاص بهذم العملة وهو كما الات 
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CODES) 


use TK; 
top = MainWindow->new; 
Şmenubar=$top-> MenuÛ; 


Stop->configureCmenu = >Şmenubar); 
$file=$menubar->cascade(C label => "File"); 
open =$file->command( 
-label => "New", 
-underline = >0, 
-accelerator => 'Ctrl-o" 
J 


$file->separator; 
Şnew=$file->command( 


-label => "Open", 
-underline = >0, 
-accelerator = > 'Ctrl-o'" 


J; 
$file-> separator; 
pexit= $file->command( 


-label => "Exit", 
-underline = >0, 
-command = >\&exit 
J; 
Şedit=$menubar->cascade( 


-label => "Edit" 


undo =$edit->command( 


-label => "Undo", 
-underline = >0, 
-accelerator => 'Ctrl-z" 
J 


Şedit->separator; 
$redo=$edit-> command( 


-label => "Redo", 
-underline = >0, 
-accelerator => 'Ctrl-y' 
J; 


MainLoop; 


الان بعد ان قمنا بكتابة هذا الكود سوف نقوم بعمل اشرح الخاص لكي نعرف مالذي يجري داخل الكود 


الفقرة الاولى 
ماهو الفرق بين هذين المقطعين؟؟ 
هذا المقطع الاول 
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CODE(114) 
Şedit=$menubar-> cascade( 
-label => "Edit" 
J; 
CODES) 
$redo=$edit->command( 
-label => "Redo", 
-underline = >0, 
-accelerator => 'Ctrl-y' 
J; 
وقبل ان تنظر الى هذين المقطيعن البرمجيين عليك ان تعرف انه كل من خيارات ال‎ 
1-label 


2-underline 

3-accelerator 

جميع هذه الخيارات هي فعلا خيارات ولكنها ليست الخيارات التي نبحث عنها اذن في هذه الحالة لم يتبقى الا فرق 
واحد فقط وهو 

CODE(116) 

$edit=$menubar-> cascade 


CODE(117) 


$redo=$edit->command 


المقطع الاول يحتوي على كلمة(مل2dءءهجء)‏ 
والمقطع الثاني لا يحتوي على كلمة(ملهءءهء) 
ولکن يحتوي على کلم( ل۸ )٥C٥۳١ ۸٣2‏ 

ماهو الفرق بين هاتين الكلمتين؟؟ 

نلاحظ في البرنامج السابق انه تم استعمال الامر 


CODES) 
cascade 
مرتين فقط وفي المرتين التي تم استعماله فيها كان الذي يتم فيها استعماله يتم تكوين نافذة اساسية‎ 
)٣ا|م(فلملا مثل نافدة‎ 
وبينما الامر‎ 
CODE(119) 
command 


هذا الخيار تم استعماله اكثر من مرة ولكن ايضا كل مرة تم استعماله فيها يتم تكوين قائمة جانبية يعني مثل قائمة 
اopen,undo)d(‏ 
ادن من هذا الكلام نطلع بخلاصة هي انه كلما اردت ان تقوم بتكوين نافذة اساسية يتم استعمال الٺمر (cascade)‏ 
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وكلما اردت ان تقون بتكوين قائمة منسدلة تقوم باستعمال الامر )٥0۸١۸72۸0(‏ 
هذه هي اهم الفقرات التي كنت اريد ان اشرحها في البرنامج واليكم الان صورة تنفيذ البرنامج وهي كما الاتي 


FIGURE(S7) 


EO TERE, 
الان في هذه الخاصية اضافة الى ما تم ذكره من الخصائص البرمجية في البرنامج السابق سوف نقوم بذكر كيفية‎ 
اضافة جملة طباعة الى البرنامج لكي تقوم بطباعة المعلومات التي ترغب بها‎ 

ونلاحظ هنا انه قد ذكرنا انه توجد جملة طباعة وبما انه قد ذكرنا انه يوجد جملة الطباعة فأن الناتج من جملة 
الطباعة هو لن يظهر في البرنامج اي لن يكون الناتج من عملية الطباعة بصريا بل سوف يكون في الشيل 
واليكم الكود الخاص بهذه العملية وهو كألتالي 
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CODE(120) 


use TK; 
my $top = MainWindow->new; 
$top->configureCmenu => my $menubar = $top-> Menu); 
my $file = $menubar->cascade(Clabel => '~File"); 
my $edit = $menubar->cascade(Clabel => '~Edit’); 
my $help = $menubar->cascade(Clabel => '~Help’); 
my $new = $file->cascade( 
-label => 'Nevw', 
-accelerator => 'Ctrl-n', 
-underline => 0, 
J; 
$file->separator; 
$file->command( 
-label => 'Open', 
-accelerator => 'Ctrl-O', 
-underline => 0, 
J; 
$file->separator; 
$file->command( 
-label = > 'Save', 
-accelerator => 'Ctrl-S', 
-underline => 0, 
J; 
$file->command( 
-label => 'Save AS ...', 
-accelerator => 'Ctrl-a', 
-underline => 1, 
J; 
$file->separator; 
$file->command( 
-label => "Close", 
-accelerator => 'Ctrl-w', 
-underline => 0, 
-command => \&exit, 
J: 
$file->separator; 
$file->command( 
-[label => "Quit", 
-accelerator => 'Ctrl-q', 
-underline => 0, 
-command => \&exit, 
J; 
Şedit->command(Clabel => 'Preferences ..."); 
$help->command(Clabel => 'Version', -command => sub {print "This is the first edition of this 
programm\n"}); 


Şhelp-> separator; 

Şhelp->command(Clabel => 'About', -command => sub {print "this is a simple perl menu 
programm\n"}); 

MainLoop; 


الان نلاحظ انه لو قمنا بتنفيذ البرنامج سوف نحصل على الصورة هذه 


File Edit 


FIGURES) 
الان لو قمنا بفتح القائہمة(م/ع)‎ 
(About, version )lna jliتgنlû سوف نلاحظ انها تحتوي على قائمتان‎ 
واذا قمت باختیار کل القائمة(۲ںمطاه)‎ 
سوف يتم طباعة هذه الجملة في الشيل‎ 


FIGURES) 


هذا يكون بالنسبة للقائمة الثانوية(uمطاع)‏ 
اما بالنسبة للقائمة الثانية(۶/0۸١۷6)‏ 
عندما تقوم باختيارها سوف يتم طباعة | لجملة هذه في الشيل 


FIGURE(60) 
م۷)‎ s0 وهذا الي یتم طباعته عندما یتم اختیار القائہمة(۸‎ 


E الى‎ FF ION PONT RESP 
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الخاصية سوف نعمل على تدعيم الخيارات في القائمة لكي تكون القائمة نموذجا حقيقيا من قوائم البرامج التي نعمل 
عليها على كل خاصية الخيارات التي تكلمنا عنها الان هي اضافة (radio buttons)d'‏ 
الى القائمة و اليكم الكود الذي يكون مسئول عن هذه العملية 
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$top->configureCmenu => $menubar = $top-> Menu); 


Perl Gui Programming Book 


CODE(121) 


use TK; 
Stop = MainWindow->new; 


$file = $menubar->cascadeClabel => '~File"); 
edit = Şmenubar->cascadeClabel => '~Edit’); 
help = $Şmenubar->cascade(Clabel => '~Help'); 
Şnew = $file->cascade( 

-label => 'New', 

-accelerator => 'Ctrl-n', 

-underline => 0, 
J; 
$file->separator; 
$file->command( 


-label => 'Open', 
-accelerator => 'Ctrl-O', 
-underline => 0, 
-command =>\&favourite, 


J; 
$file->separator; 
$file->command( 
-label => 'Save', 
-accelerator => 'Ctrl-S', 
-underline => 0, 
J 
$file->command( 
-label => 'Save AS', 
-accelerator => 'Ctrl-a', 
-underline =>1, 
J; 
$file-> separator; 
$file->command( 
-label => "Close", 
-accelerator => 'Ctrl-w', 
-underline => 0, 
-command => \&exit, 
J 
$file->separator; 
$file->command( 
-label => "Quit", 
-accelerator => 'Ctrl-q', 
-underline => 0, 
-command => \&exit, 


Şedit->command(Clabel => 'Preferences ...'); 


Şhelp->command(Clabel => 'Version', «command => sub {print "This is the first edition of this 
programm\n"}; 

$help-> separator; 

$help->command(Clabel => 'About', -command => sub {print "this is a simple perl menu 
programm\n"}); 

sub favourite { 

Şlang="perl"; 

foreach (qw/ perl c python ruby php/){ 

$top-> Radiobutton( 


-text => "Choose ur favoutite language", 
-text SNE 
-variable =>\$lang, 
-value =>, 
J->pack(side =>''left); 
1 
MainLoop; 


هذا هو الكود الذي يكون مسئول عن هذه العملية الان نأتي الى شرح الفقرات الجديدة من البرنامج لكي نفهم مالذي 
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الفقر الاو * 
CODE(122)‏ 


sub favourite { 

Şlang="perl"; 

foreach (qw/ perl c python ruby php/){ 
Şmw-> Radiobutton( 


-text => 
-variable = >\$lang, 
-value E 


J->pack(side =>''left); 


هذه الفقرة هي روتين فرعي لانه 

اولا قد تم اسنادها الى الخیار کوماند 

ثانيا نلاحظ في بدايتها انها تحتوي على الكلمة الخاصة بتعريف الرويتن الفرعي وهي كملة(طاںء) 

O TT TE E PT TT OO ET E 
بوتن‎ 

على سوف نقوم بعمل مرور سريع لهذه الخيارات 


د 
CODE(123)‏ 
-text =>‏ 
هذا الخيار عمله هو ان يقوم بترتيب الخيارات الموجودة ضمن البلوك الخاص بجملة الفور 
2 
CODE(124)‏ 
-variable = >\Şlang,‏ 


هذا الخيار هو الخيار الخاص بأن يتم اسناد قيم متغير اليه فيما لو اذا كان لدينا متغير و في البرنامج ولا نريد ان يبقى 
على وضعه ان لا نرغب في أن يبقى متغير فكل ما نعمله ان نقوم بأسناده الى هذا الخيار 


3- 

CODE125) 

-value =>$_,‏ 
هذا الخيار هو الخيار الخاص بالتاشير على قيمة الزر حيث لو انه قد تم الغاءه فأن الذي يحصل عن ذلك هو انه 
eS GC GE SSS‏ جميع القيم مؤشرة او بمعني 

اما الخيار الذي تم اسناده مع الامر(Kعمم)‏ 
وهو الخيار (۴ع/) 

هو مجرد خيار لكي يتم ترتيب اسماء لغات البرمجة بشكل جميل فقط اي ليس له وظيفة اخرى وانه من الممكن ان 

يستمر البرنامج من دونه ولكن وجودة يعطي جمالية للبرنامج فقط 
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اما الان وبعد هذا الشرح سوف نرى صورة البرنامج من بعد التنفيد كيف تكون 


Fle Edit Help 


je] * cç ^ python *“* rnıþby *“* php 
س‎ 


FIGURE(GD) 
)٥م٥6۸( الان هذه هي صورة البرنامج بعد ان قمنا باختيار القائمة الرئيسية ملف ومنها اخترنا القائمة الثانوية‎ 
ولكن على الرغم من الجهد آلذي بذلناه يبدو البرتامج غير مقنع‎ 
لانه اي برنامج كان يحتوي على قائمة فان المتفرعة من القائمة الثانوية تبدر ايضا على شكل قائمة ولا تبدو على‎ 
شكل سطر كما هو الحال عنا الان على الرغم من ان البرنامج الذي كتبناه في الاعلى هو برنامج من البرمجية و‎ 
من الناحية الهيكلية هو برنامج صحيح 100 في المئة ولكن شكله غير مقنع لانه قد تعودنا على انه القائمة المنبثقة‎ 
من الفرعية تكون ايضا على شكل قائمة ولذا على هذا المعتقد سوف نعمل على ان نغير اوراقنا لكي نقوم بكتابة‎ 
برنامج له قوائم مثل القوائم الخاصة بالبرامج ج التي نعرفها‎ 


الخاصية السابعة 
في هذه الفقرة الان سوف نتكلم عن برمجة القائمة لكي تكون بشكل افضل ولكي تكون لدينا قائمة برنامج تكون 
اقرب الى القوائم الحقيقية التي نراها في البرامج التي نتعامل معها يوميا على كل اليكم الخاص بهذه القائمة ويكون 
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CODE(120) 


use TK; 
top = MainWindow-> new; 
Şmenubar=$top-> MenuÛ; 


Ştop->configureCmenu => $menubar); 
$file=$menubar->cascade( label =>"File"); 
pedit=$menubar-> cascade(- label => "Edit"); 
Şhelp=$menubar->cascade(-label => "Help"); 
popen=$file-><command( 
-label => "Open", 
-accelerator =>"Ctrl-o", 
-underline = >0, 


Şnew=$file->cascade( 
-label => "New", 
-menuitems => f 
['checkbutton',"spawn"], 
| 'radiobutton',""perl"], 
['radiobutton',"c"], 
[ 'radiobutton', "python" ], 
['radiobutton',"ruby"], 
| 'radiobutton', "php", 


J 

J; 

Şpclose=$file->command( 
-label => "Exit", 
-accelerator =>"Ctrl-e", 
-underline = >0, 
-command = >sub {exit}, 
J 

undo =$edit->command( 
-label => "Undo", 
-accelerator =>"Ctrl-z", 
-underline = >0, 
J; 

Şredo=$edit->command( 
-label => "Redo", 
-accelerator =>"Ctrl-y", 
-underline = >0, 


Şhelp->command(Clabel => 'Version', -command => sub {print "This is the first edition of this 
programm\n"}; 

$help-> separator; 

$help->command(Clabel => 'About', -command => sub {print "this is a simple perl menu 
programm\n"}); 

MainLoop; 
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الان هذا هو الكود عن تكوين القائمة التي في تكوينها 


ونأتي الى مناقشة الفقرات المكونة لها 
الفقرة الاولى 


— > "New", 


=> 7 
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CODE(127) 


pnew=$file->cascade( 
-label 
-menuitems 
['checkbutton',"spawn"], 
| 'radiobutton',""perl"], 
['radiobutton',"c"], 


r Ir 


['radiobutton',"python"'], 
['radiobutton',"ruby"'], 
['radiobutton',"php"'], 

1 


الان لو نلاحظ البرنامج ككل نلاحظ انه هذه هي الفقرة الوحيدة التي لم لم تمر علينا في خلال مشوارنا 


e 


CODE 128) 


pnew=$file->cascade( 


هذا الجزء من البرنامج نلاحظ فيه على غير العادة انه يحتوي على الامر(همل2d-ئهعء)‏ 


ولا يحتوي على الامر ( ۸2۸0 )٥٥۳۸‏ 


الذي تعودنا عليه في مثل هذه الاماكن من البرنامج والسبب في هذا انه هذه القائمة سوف تعتبر قائمة 
اساسية لما سوف يندرج عليها ولكن تبقى هذه القائمة قائمة فرعية للقائمة التي تحمل الاسم( م/ا) 


يعني سوف نوضح الفكرة كما يلي 


القائمة الاساسية الرئيسية هي القائمة(ع|ن؟) 


)ہ٥W(ةمہئاقلا‎ 


تعتبر قائمة فرعية من القائمة الاولى(ع|ا؟) 
e‏ الفرعية التي تنسدل من القائمة(سW٥عہ)‏ 


تعتبر قائمة فرعية من القائمة(Wعہ۸)‏ 
والقائمة(Wعہ)‏ 
هي القائمة الاساسية لها 


هكذا يكون ترتيب البرمجي للقوائم في متل هذه الحالات 
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CODE(129) 
-label => "New'"", 
الجزء الثالث‎ 
هذا هو الجزء الاهم من اجزاء القائمة وهو الجزء الذي يؤدي الى تكوين القائمة بالشكل المتعارف عليه والیکم‎ 
TODE(130) 
-menuitems => | 


['checkbutton',"spawn"], 
['radiobutton', eri 1 
['radiobutton',"c"], 


[| 'radiobutton', "python" ], 


['radiobutton',"ruby"], 
| 'radiobutton', "php"], 
J 


هذا الجزء يكون مسئول عن تكوين القائمة بالشكل الذي نريده كما ذكرنا نلاحظ ان هذا الخيار اسلوب تعامله مع 
الاموراو بالاحرى مع الازرار يكون باسلوب مختلف 

حيث نلاحظ انه نوع الزر الذي تريد ان تقوم ببرمجته من خلال استعمال هذا الامر تقوم بكتابته بالشكل المكتبوب 
a‏ 
هذا الكود E E‏ الصعب N OETA NEE‏ 

وبعد ان نفذنا البرنامج سوف نشاهد صورة البرنامج بعد التنفيد 
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"F/CURE(G2) 


الان وبعد ان قمنا ببرمجة قائمة برنامج وكانت هذه القائمة هي قائمة كما نريد ولكن تبقى تحتاج الى بعض اللمسات 
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How to Make Advanced Menu with Complex sub Routine 

اذا قمنا ببرمجة قائمة وكانت القائمة التي برمجناها لا تعمل شيئا اي انها لاتقوم بعمل محدد فأنه من الافضل ان 

لانقوم بهذا العمل ونكلف انفسنا عنا ء التعب لكتابة برنامج يبلغ طوله عشرات الخطوات بدون اي فائدة محددة 

ولذا اذا كنت تريد ان تكتب برنامج خاص لقائمة مثل القوائم التي نراها اصبح لابد ان نعمل برامج اكثر تعقيدا لكي 

تقوم بوظائف اكثر اهمية مثل خاصية الاستعراض اي خاصية 

(brows٥ عمل(‎ 

الان سوف ناخذ البرنامج الخاص بعمل ال(۶6ءسW٥5۲)‏ 

CODES) 


use TK; 
use Cwd; 


$top =MainWindow->nevw ; 


print 

"Filename: ", 

$top-> getOpenFile(-defaultextension = > ".pl", 
-filetypes =< 
[["Perl Scripts', '.pl' 1 
['"Text Files', ['.txt', '.text']], 
['C Source Files', '.c', 'TEXT'], 
['GIF Files', gif, J 
['"GIF Files’, 'GIFF'], 


['AII Files', J, 
J 
-initialdir => Gwd::cwdÛ, 
-initialfile => "Choose ur file Now", 
-title => "Your customized title", 
J, 
n"; 
الفقرة الاولى‎ 
CODES 
use Cwd; 
هده الفقرة من المهم ان تعرف او لا انها فقرة ليست ملزم بوضعها ولكن من الافضل ان تضعها‎ 
"AINT 


فقرة عليك دائما ان تتذدکرها هي انه كل مرة في لغة البیرل تلاحظ وجود کلمة(عمئں) 
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عليك ان تعرف ان الكلمة التي تأتي من بعد هذه الكلمة هي استخدام للموديل 
/EnD/‏ 


وفي حالتنا هذه في هذا البرنامج تم استعمال الموديل(dسwع)‏ 

(current working dire ctory)4llnzتl‎ ie والذي يعني‎ 

اي في حالتنا هذه البرنامج الذي نكتبه هو يقوم بعمل استعراض للملفات التي موجودة لديك ومع استعمال هذا 
ا ا 


الفقرة الثانية 
CODE133)‏ 
Stop-> getOpenFile(-defaultextension => ".pl",‏ 
الامر هذا هو امر جديد لم يمر علينا من قبل ولكن على كل هو الامر الذي يكون مسئول عن استعراض الملفات 
وفي الخيار الارل المرفق معه نلاحظ انه تم اختيار الامتداد الافتراضي هو الامتداد الخاص بلغة البيرل 
وعلى كل هذا الخيار ليس بالخيار المهم في هذا البرنامج اي من الممكن ان يتم الاستغناء عنه 


الفقرة التالثة 
CODE 134%)‏ 
-filetypes =<‏ 
[['Perl Scripts', '.pl' J‏ 
[Text Files', ['.txt', .text']],‏ 
['C Source Files', '.C', 'TEXT'],‏ 
['GIF Files', .gif', J‏ 
['GIF Files', 'GIFF'],‏ 
[All Files', J,‏ 
J,‏ 
هذا الخيار صحيح هو خيار طويل ولکن هو خيار بسیط نلاحظ فيه انه تم اختيار امتدادات الملفات المرغوبة لكي 
الملفات الخاصة بلغة البيرل 
والملفات الخاصة بلغة السي 
والصور ذات الامتداد(G//۴/۴ (gif,‏ 
الى اخره من امتدادات التي من الممكن ان تضيف او تنقص عليها كما تريد 
الفقرة الرابعة 
CODES)‏ 
-initialdir => GCwd::cwdÛ,‏ 
-initialfile => "Choose ur file Now",‏ 
-title => "Your customized title",‏ 
J‏ 
الخيار الاول 
TODE(136)‏ 


-initialdir => Gwd::cwdÛ, 
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هو خيار خاص بالاستعراض في (current Working directory) JI‏ 


والخيار الثاني 
CODE137)‏ 
-initialflle => "Choose ur file Now",‏ 
هذا الخيار يكون مسئول عن طباعة هذه الجملة في حقل ا(٥‏ ھ۸ (fi|٥‏ 
بجوار الزر الخاص بعملية الفتح(۸عم٥)‏ 
اما الخيار الثالث 
CODE13S)‏ 
-title => "Your customized title",‏ 


هو مسئول عن اعطاء الاسم للبرنامج 
رفا ان ع ان ات امنا اف ا وتر عا ,فحن ار ت کے کن لر نے و ری د اا 
وهو كما في الصورة الاتية 


Your CUStOMIZEd title 


1E i 
.cpan 
AeSIANEF 
.EMACS.H 


Open 


Files of type: = Perl ScnpisS (".pI) س‎ | Cancel 


AIGURE(GS) 
نلاحظ خذه هي صورة البرنامج الناتج ولاحظ انه فعلا برنامج مفيد وانه يحتوي ويستعرض جميع الملفات‎ 
الموجودة في المسار الذي انت فيه ویعرضص الملفات سواء كانتمخفية ام غير مخفية‎ 
الان سوف نعمل على دمج البرنامج مع البرنامج السابق الخاص بعملية تكوين قائمة و اليكم كيف تتم العملية كما‎ 
فی هذه الكود‎ 
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CODE139) 


use TK; 
top = MainWindow-> new; 
Şmenubar=$top-> MenuÛ; 


Ştop->configureCmenu => $menubar); 
$file=$menubar->cascade( label =>"File"); 
pedit=$menubar-> cascade(- label => "Edit"); 
Şhelp=$menubar->cascade(-label => "Help"); 
popen=$file-><command( 

-label => "Open", 

-accelerator =>"Ctrl-o", 

-underline = >0, 

-command =>\&open, 

J; 


$file->separator; 
Şnew=$file->cascade( 
-label => "New", 
-menuitems => [ 
['checkbutton',"spawn"], 
[ 'radiobutton',""perl"], 
['radiobutton',"c"], 


r Ir 


['radiobutton',"python"'], 


r Ir 


['radiobutton',"ruby"], 
| 'radiobutton', "php"], 
ل‎ 

J 
$file->separator; 
Şclose=$file->command( 


-label => "Exit", 
-accelerator =>"Ctrl-e", 
-underline = >0, 
-command = >sub {exit}, 
J; 

Şundo=Şedit->command( 
-label => "Undo", 
-accelerator =>"Ctrl-z", 
-underline = >0, 
J 


pedit->separator; 
Şredo=$edit->command( 


-label => "Redo", 
-accelerator =>"Ctrl-y", 
-underline = >0, 


$help->command(Clabel => 'Version', -command => sub {print "This is the first edition of this 
programm\n"}); 


$help-> separator; 

$help->command(Clabel => 'About', -command => sub {print "this is a simple perl menu 

programm\n"}); 

sub open { 

"Filename: ", 

$top-> getOpenFileC-defaultextension = > ".pl", 

-filetypes =< 
[['"Perl Scripts', '.pl' J 
[ "Text Files', ['.txt', .text']], 
['C Source Files', '.c', ‘'TEXT'], 
['GIF Files’, .gif, J 


['GIF Files', 'GIFF'], 
[All Files, '"*' J, 
J 
-initialdir => Gwd::cwdÛ, 
-initialfille => "coose ur file now", 
-title => "Your customized title", 
J) 
n"; 
MainLoop; 


الان هذا الكود نلاحظ ان الذي قمنا بعمله فيه هو انه اعتبرنا البرنامج الخاص بفتح المفلفات هو روتين 
فرعي و اسندنا قيمته الى الخيار )٥c0/۸7۸72۸0(‏ 

ونلاحظ انه عند تنفید البرنامج سوف نحصل على قائمة ولها القدرة على استعراض الملفات الموجودة في الحاسبة 
ادن من خلال هذا البرنامج خلصنا الى قاعدة هده القاعدة هي انه من الممكن ان يتم دمج اي برنامج مع البرنامج 
الخاص بتكوين القائمة واعتبار البرنامج الذي سيتم دمجه مع البرنامج على انه روتين فرعي يودي وظيفة اضافية 
من شأن هذه الوظيفة ان تزيد من مرونة وفعالية القائمة 
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pOpUp_menuy 
)])٥م‎ /ع۷٥/(لا لو نرجع بهذه الصفحات قليلا الى الوراء نلاحظ انه كنا قد تعملنا تقنية تدعیى بتفنية‎ 
نلاحظ ان اهم ما يميز هذه التقنية عن غير ها من التقنيات انه من الممكن ان يتم استدعاء نافذة من خلال نافذة‎ 
اتر أ اام ال واا ع ن من وو وک مو کل‎ 
خری اي انه من يه يتم ن من يه ولکن من‎ 
(popup menu Jl تقنية‎ 
هذه التقنية الخاصة ببرمجة القوائم من خلالها سوف نقوم باستدعاء عدد اكبر من النوافذ وهكذا سوف نحصل على‎ 
طريقة اخرى من برمجة القوائم‎ 
الان نأخذ الكود الخاص بهذه العملية‎ 
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CODE(140) 


use TK; 
top = MainWindow->new; 
require Tk:: Dialog; 


my(@popup_opts) = (-popover => undef, qw/-overanchor sw -popanchor sw/); 


my $d1 = $top-> Dialog( 
@popup_opts, 
-text => "Original options:\n" . join(' ', say(@popup_Oopts)) . 
"This Dialog should be in the screen's lower-left ". 
"corner. When you dismiss this Dialog another will ". 
"popup in the southeast corner.", 
J; 
$d1->Show; 


@popup_opts = qw/-overanchor se -popanchor se/; 
$d1->configure( 
@popup_Opts, 
-text => "Changed options:\n" . join(' ', sSay(@pOPUD_OptS)) . 
"1 second after you dismiss this Dialog another " . 
"will popup, without window manager decorations ". 
"(overrideredirect on), with its southeast corner " . 
"over the cursor.", 
J; 
$d1->Show; 
$top-> after(1000); 


@popup_opts = qw/-popover cursor -popanchor se/; 
$d1->configure( 
@popup_Oopts, 
-text => "Changed options:\n" . join(' ', sSay(@pOPUD_OptS)) . 
"1 second after you dismiss this Dialog another " . 
"will popup, with window manager decorations once ". 
"again , with its northwest " . 
"corner over the cursor."", 
J; 
$d1->overrideredirect(1); 
$d1->Show; 


@popup_Oopts = qw/-popanchor nw/; 
$d1->configure( 
@popup_Opts, 
-text => "Changed options:\n" . join(' ', sSay(@pOpUD_OptS)) . 
"End of demonstration."", 


pd1->overrideredirect(0); 
$Stop-> after(1000); 


$d1->Show; 
sub say { 
map {defined($_) ? $_ : 'undef'} (@_, "\n\n”); 
j 
MainLoop; 
الان نأتي الى شرح هذا البرنامج وشرح الفقرات المكونة له‎ 
الفقرة الاولى‎ 
CODE140) 


my(@popup_opts) = (-popover => undef, qw/-overanchor sw -popanchor sw/); 
)م0مuم‎ ٣٥۸ل هذه الفقرة هي عبارة عن فقرة لمصفوفة عادية يحتوي على خيارين من خيارات قائمة ال(‎ 
وكما نلاحظ من هذه الخيارات هي خيارات خاصة بالموقع الذي سوف تظهر فيه النوافذ كما سنرى عند تنفید‎ 
البر نامج‎ 
الفقرة الثانية‎ 
CODE(142) 


my $d1 = $top-> Dialog( 

@popup_Oopts, 

-text => "Original options:\n" . join(' ', say(@popup_Oopts)) . 
"This Dialog should be in the screen's lower-left ". 
"corner. When you dismiss this Dialog another will ". 
"popup in the southeast corner.", 


J; 
$d1->Show; 
)(poمupص‎ "6٣ں الفقرة هذه سوف تکون اول(‎ 
)5İهاهو تظهر لدينا في البرنامج ونلاحظ من هذه الفقرة انه تم استعمال تفنية ال(‎ 
هي تقنية جديدة و الفائدة من هذه التقنية انه تعمل على عرض النص الذي قمنا بكتابته في الاعلى‎ 
اما الجزء الذي يحمل الاسم(إهء)‎ 
فهذا رويتن فرعي تم اسناده لكي تتم عملية العرض بالشكل المطلوب‎ 
والخيار هذا‎ 
CODE143) 
$d1->Show; 
الفائدة منه هو ان تتم عملية الاستعراض‎ 
"AINT 


)sh0w(رمالا‎ 

الذي استعمالناه الان هو امر يختلف عن الامر(W٥۸ی)‏ 

الذي استعملناه مع تقنية اentry)dJ(‏ 

حيث لا يوجد ربط بين كل من التقنيتين لذا ارجو الانتباه الى هذه الفقرة 
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الفقرة الثانية 
CODE(1435)‏ 


@popup_opts = qw/-overanchor se -popanchor se/; 
$d1->configure( 
@popup_Oopts, 
-text => "Changed options:\n" . jJoin(' ', sSay(@pOPUD_OptS)) . 
"1 second after you dismiss this Dialog another " . 
"will popup, without window manager decorations ". 
"(overrideredirect on), with its southeast corner " . 
"over the cursor.", 
J; 
$d1->Show; 
$top-> after(1000); 


المقطع الثاني من هذا البرنامج هو يعني النافذة الثانية من التي سوف تظهر من البرنامج اي يعني انها 
(nember 2 popup menu)d!‏ 
وهذا الجزء منم البرنامج يتكون مما يلي 


CODE(146) 


@popup_opts = qw/-overanchor se -popanchor se/; 


هذا السطر البرمجي يحتوي على اعدادات الاتجاه اي انه في اي مكان (number 2 popup menu)”e‏ 
ان تظهر ومن تم استعمال خيار الاظهار ولكن الامر هذا 
CODE(147)‏ 
$Stop-> after(1000);‏ 
هذا الخيار على العموم تقريبا اول مرة نقوم باستعماله وهو يعني بعد كم من الوقت سوف تظهر ال 
(number 3 popup menu)‏ 
اما بالنسبة الى الرقم 1000 فهو يعني انه بعد انقضاء هذا الوقت المحدد وهو 100 سوف تظهر 
(number 3 popup menu)‏ 
الجديدة واما بالنسبة الى معيار قياس الوقت هو (ds٣هءعMilIs(‏ 
ومن الممكن ان تغير الرقم هذا الى اي رقم تريد او من الممكن ان تلغيه وعلى راحتك 
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الفقرة الثالثة 
CODES)‏ 


@popup_opts = qw/-popover cursor -popanchor se/; 
$d1->configure( 
@popup_Oopts, 
-text => "Changed options:\n" . jJoin(' ', sSay(@pOPUD_OptS)) . 
"1 second after you dismiss this Dialog another " . 
"will popup, with window manager decorations once ". 
"again , with its northwest " . 
"corner over the cursor."", 
J; 
$d1->overrideredirect(1); 
$d1->Show; 


هذا المقطع البرمجي من البرنامج يعمل على عرض dlئ)menu (number 3 popup‏ 
NE Te GS a a la,‏ 
و مجي يه ممير : پره سو ل یلح لسم 2 


الفقرة الرابعة 
CODE(149)‏ 
@popup_Oopts = qw/-popanchor nw/;‏ 
$d1->configure(‏ 
@popup_Oopts,‏ 
-text => "Changed options:\n" . jJoin(' ', Say(@pOPUD_OptS)) .‏ 
"End of demonstration."",‏ 


J; 


pd1->overrideredirect(0); 
Stop-> after1000); 
$d1->Show; 


هذه الفقرة الرابعة من البرنامج وهي تحدد النافذة الرابعة او ائ|)menu (nember 4 popup‏ 
هذه الفقرة اذا لاحظنا مكوناتها نلاحظ انها لا تحتوي على اي شئ جديد على كل الان سنرى ناتج التنفيذ الخاص 
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Uriginal optlons: 
-popover undef -oyveranchor $W 
-popanchor $W 


This Dialog should be ın the screen's Changed options: 

lower-left corner. When you dismı1ss -overanchor se -popanchor se 
this Dialog another will popup in the 
southeast corner. 1 second after you dismiss this Dialog 
another will popup, without window 
manager decorations [overrlderedirect 
on}, with Its southeast corner over the 
CUISOT. 


Lhanged options: 
-popover cursor -popanchor $€ 


1 second after you dismı1ss this Dialog, 
another will popup, with window 
manager decorations once agaln , wıth 
its northwest corner over the Cursor. 


Lhanged options: 
-popanchor nw 


End of demonstratlon. 
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لاحظ الشكل الذي يحمل الرقم 3 فعلا انه شكل يجلب الانتباه لانه لو دققنا الانتباه انه لايحتوى على هذا 


س ا - س 
EE‏ 5 
FIGCURE(GSE)‏ 
ر الر او ار الي كن سل عن ار ى كاه ارط س الر ا هى الر اا 


CODE(150) 
pd1->overrideredirect(); 


هذا هو الخيار المسئول عن هذه العملية 
"HINT‏ 
في هذا البرنامج لاحظنا استعمال عدد من الخيارات التي علمنا انها ذات علاقة باعدادات الاتجاه وهي 


1 


ا 
CODES)‏ 


popover 


2- 
CODE152) 


overanchor 


3- 

CODES) 

popanchor 

هذه هي الخيارات التي لها علاقة باعدادات الاتجاهات في برمجة الواجهات الرسومية لكن ما احب ان اوضحه من 
القيم الى تسند الى هذه الخيارات هو الخيار الذي يحمل الاسم 


CODE154) 
CUFSOF 

حيث ان هذا الخيار له استراتيجية معينة في العمل حيث هنالك خيارات لها سياسة محددة في مكان اظهار النوافذ 

ولكن هذا الخيار يعتمد على اظهار النوافذ اعتمادا على موقع ال)s»eئmou (Cursor of the‏ 

ای اينما يكون مؤشر الماوس هو يظهر النافذة هنالك لذا من الممكن ان تسبب هذه الفقرة تشوش عند بعض 

اا فاص ا بک د لے د اندر کت 
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Option Menu 


هذا النوع من القوائم يعتبر من الانواع البسيطة من القوائم و التي كثير منا يصادفها في حياته وخاصة في مواقع 
الانترنت على كل هذه القوائم ليست بطول القوائم التي سبق و ان اخذناها في الصفحات القليلة الماضية و ان 


سرت قملھا یت کیا لی من خلال ھا ارتام 


=> "Choose ur language", 
=> "red", 


top = MainWindow->new; 


@a=(qw /perl c python ruby java cpp c# php asmebly coldfusion bashscript VD 7); 


-Options =>[@aj], 
-command = >sub {print "Ur favourite is:-@_,\n",}, 
J 
$c-> pack; 
$d=$top-> Button( 
-text => "Exit", 
-command = >sub {exit} 
J 
$d->pack(Cside = > 'bottom’); 


CODES) 
use TK; 


$b=$top-> Label( 
-text 
-foreground 
J; 

$b-> pack; 


$c=$top-> Optionmenu( 


MainLoop; 


نعلم ما هو عملها وقبل ان نشرح عمل الكود اليكم الصورة الخاصة بهذا البرنامج 
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FICUREG9) 
الان نأتي الى شرح البرنامج و الفقرة الوحيدة التي سوف نشرح عنها هي الفقرة التالية‎ 


CODES) 


@a=(qw /perl c python ruby java cpp c# php asmebly coldfusion bashscript VD 7); 
$c=$top-> Optionmenu( 

-Options =>[@aj, 

-command = >sub {print "Ur favourite is:-@_,\n",}, 


J); 
السطر الارل‎ 
CODES) 
@a=(qw /perl c python ruby java cpp c# php asmebly coldfusion bashscript VD 7); 
عبارة عن مصفوفة وهذه المصوفة تم ادخال اسماء اللغات على انها العناصر الخاصة بها‎ 
السطر الثاني‎ 


CODES) 
$c=$top-> Optionmenu( 


هذا السطر يكون مسئول عن تكوين القائمة التي سوف تكون قائمة الخيارات 


CODES) 
-Options =>[@aj, 
السطر يكون عن ادخال اسماء اللغات الموجودة في المصفوفة اللىي في الاعلى الى القائمة‎ 
السطر الثاني من البلوك البرمجي‎ 
CODE(160) 
-command = >sub {print "Ur favourite is:-@_,\n",}, 


E E E ES 
في روتين فرعي وكان عمل جملة الطباعة هذه هي ان تقوم بطباعة جملة‎ 

TO RE EE E O E 
في الشيل‎ 


في برمجة الواجهات الرسويمةلا يوجد تقنية تحمل هذا الاسم وان هذه التقنية تكون عبارة عن اختصار 
(Tk interface Extesions)d‏ 

يعني لن نشاهد برنامج يتم استعمال هذه التقنية معه ولكن هذه التقنية تضم تحتها تقنيات اخرى يتم التعامل معها 
ولكن ما سبب استعمال هذا الاسلوب حقيفة لا ادري لمادا 

والتقنيات اأمنضمة تحت جناح الى هده الأتقنية هي 


1-TList 
2-HlList 
3-Dırtree 
1- Tlist 
وهذه التقنية تشبه تقنية ال(×0(ء/_)‎ 
ولكن هي تقنية مرنة اكثر امثر من تقنية ال(×150ءا/)‎ 
2-HlList 
(hierarchical list)مJكİ‎ رصتخمn وهذه التقنية هي هي‎ 
اي اذا ما ترجمت الى العربية تعني القائمة المرتبة وهذه التقنية غالبا ما يتم استعمالها على انها‎ 
(Fancy listbOoX) 
3-Dırtree 


هذه التفقنية يتم استعمالها لكي تقوم بعرض المجلدات بشكis)Jd| (hierarchical‏ 
اي نوعا ما فب طريقة عرضها تشبه ال(٤ی/_1L/)‏ 
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Simple using of TList 


1-how to make ur First Program 
بعد ان قمنا بعمل تعريف بسيط لهذه التقنية الان سوف نقوم باستخدامها في البرامج لكي نرى كيف يتم عملها‎ 
اليكم الكود الاول الخاص بهذه التقنية‎ 


CODE(16D) 

use TK; 

$top=MainWindow->new(-title => "TList"); 
require TKk::TList; 

$a=$top-> TListCwidth =>40); 


foreach (qw /perl c python ruby java cpp c# php asmebly coldfusion bashscript Vb 7){ 
Şa->insert(end!, 


-text =>‏ 
-itemtype => "text'‏ 
J);‏ 
j‏ 
$a-> pack;‏ 
MainLoop;‏ 
الان لو قمنا بتنفيذ الكود سوف نحصل على الصورة الاتية من ناتج التنفيذ 
ا اس 
php‏ 
cC asmebly‏ 
python coldfusion‏ 
ruby bashscrpt‏ 
jaya Yh‏ 
cpp‏ 
CF‏ 
FIGURE(70)‏ 
الان لو تلاحظ الكود هذا سوف ترى ان الفقرة التي لم تمر علينا هي هي الفقرة التالية 
CODE16Z)‏ 
Şa=$top-> TListCwidth = >40);‏ 
وهي كما ذكرنا الفقرة هي المسئولة عن تكوين المنصة الرئيسية الخاصة بال( ءئ/_71) 
اما الخيار الاخر الذي لم يمر علينا هو الخيار التالي 
CODE163)‏ 
-1temtype = > ‘text’‏ 
اما هذا الخيار يكون مسئول عن اخبار مترجم البيرل الخاص ببرمجية الواجهات الرسومية عن نوع 
(items)d'‏ 


الذي سوف يتم التعامل معه وهو كما نلاحظ في حالتنا هذه قمنا باخباره ان النمط الذي نريده هو ان يكون نص 
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Advanced Using of the IList 
ی هذا الثاني 8 ت نقوم کک‎ 


ا كما في الکود الاتي 
CODE(164)‏ 
use TK;‏ 
Ştop=MainWindow->new;‏ 
require Tk::TList;‏ 
Ştl = $top-> TListcwidth = >100)->pack(expand => 1, -fill => 'both");‏ 
my $image = $top-> Getimage((folder’);‏ 


foreach my $i (0..4) { 
Ştl->insert(end', -itemtype => 'text', -text = > "text Item #$i"); 
Ştl->insert(end', -itemtype => 'imagetext', 
-text => "Folder Number $i", -image => $Şimage); 
my $b = $tl-> Button( -text => "Window item #$i"", 
-foreground =>'red!, 
-command => sub { print "Button pressed,$i\n"; D; 
Ştl->insert(end', -itemtype => 'window', -widget => $b); 


j 
MainLoop; 
text Item #I text lem #I text lem #2 text lem #3 text Hem #4 
Folder Humber Folder Humber 1 Folder Humber Z Folder Humber 3 Folder Humber 4 
FIGURE(7D) 
هذه هي صورة البرنامج الان نأتي الى شرح المكونات البرمجية الخاصة بالبرنامج وهي كما يلي‎ 
الفقر الاو ا‎ 

CODE(I6S) 


$tl = $top-> TList(cwidth = >100)->pack(expand => 1, -fill => 'both"); 
هذا الجزء من الكود يكون مسئول عن تكوين المنصة الاساسية الخاصة بال(ء/_71)‎ 
)71/ئ٤(لاب وخصصنا لهذه المنصة اي المنصة الخاصة‎ 
100 فقط ان يكون مقدار عرضها حوالي ال‎ 
الفقرة الثانية‎ 


CODE(166) 
my $image = $top-> Getimage((folder’); 
هذه الفقرة هي الفقرة الخاصة بعمل استيراد او جلب الصورة الخاصة بصورة المجلد من الحاسبة ولكن يجب ان‎ 
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تعرف ان ليس بمقدورك ان تجلب اي صورة ترغب بها لانه هذه التقنية تعمل على استيراد الصور من المسار 
الافتراضي الذي يتم تنصيب الموديل الخاص ببرمجة الواجهات الرسومية يعني بعبارة اخری 
المكان الذي قمت بتنصيب الموديل الخاص ببرمجة الواجهات الرسومية فيه هو يعتبر المسار الافتراضي الذي يتم 
فيه وهو غالبا يكون المسار التالي 

CODE(167) 
/usr/lib/perl5/site_perl/5.8.8/1386-linux-thread-mult/TK 
ولو فتحت هذا المسار او رایت اللصور الت کے ذ اک هذه الصور هي الصور التي بامكانك ان توردها کما ترید‎ 
الفقرة التالثة‎ 


CODE(I6S) 
foreach my $i (0..4) { 


هنا هذه الفقرة البسيطة تحتوي على جملة التكرار من صفر الى اربعة وفقط 


الفقرة الرابعة 
CODE(169)‏ 
$tl->insert(end', -itemtype => 'text', -text => "text Item #$i");‏ 
هنا في هده الفقرة 
من خلال استخدام الامر الخاص بالادخال قمنا بادخال العبارة الواضحة اک تظهر لدينا العبارة الت ذز ك لک 
تظهر في اول سطر من البرنامج 
الفقرة الخامسة 


CODE(170) 


Ştl->insert(end', -itemtype => 'imagetext', 
-text => "Folder Number $i", -image => $image); 


في هذه الفقرة نقوم بضبط الاعدادات الخاصة بالصورة التي نعمل على استيرادها ونلاحظ هنا في ذا 
الكود قمنا بتغير الخيار ( مم را۸ (ite‏ 
من الاسلوب اللصي الذي استعملناه في البرامج السابقة الى الاسلوب هذا 


CODE(I7D) 
Itemtext= > 'iImagetext', 
لكي نحصل على نتيجة افضل‎ 
ومن ثم نختار النص الذي نريد ان يكون مطبوع الى جوار الصورة التي نريدها ومن ثم من خلال استخدام الامر‎ 
الامر‎ 


CODE172) 


-image= >$image 


يتم اعتماد استیراد الصورة 
الفقرة السادسة 
CODE(173)‏ 


my $b = $tl-> Button( -text => "Window item #$i", 
-foreground =>'red", 
-command => sub { print "Button pressed,$i\n"; }; 
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و و و و ا ا ا 
شرح فقط هنالك فقرة احب ان اشير اليها هي في البلوك البرمجي الخاص بالزر وهو الخيار 


CODE(174%) 
-command => sub { print "Button pressed,$i\n"; D; 
هنا هذا الخيار نعرف اه مسنود الى روتين فرعي ولكن في جملة الطباعة سبب اضافة المتغير (/؟)‎ 
الى الجملة هو حتى عندما تضغط على الزر يقوم بكتابة تسلسل الزر الذي ضغطت عليه يعني عندما تضغط على‎ 
2 الزر رقم 2 فأنه يكتب لقد ضغطت على الزر‎ 


الفقرة السابعة 
CODES)‏ 


Ştl->insert(end', -itemtype => 'window', -widget => $b); 


هذه الفقرة يكون لها اهمية فيعرض النافذة التي برمجنا فيها المقطع الخاص ببرمجة الازرار فلولا وجود هذه النافدة 
لما كان من الممكن ان يتم عرض المنصة الخاصة بالازرار 

حيث نلاحظ في هذه الققرة انه لايوجد الامر الخاص بالحزم اي انه لايوجد سطر برمجي متل هذا 

CODE(170) 
$ tl->pack; 
لماذا لاوجد امر مثل هذا ولماذا في هذا النوع من التقنية تم الاستغناء عنه الان سوف نرى صورة لنفس البرنامج‎ 
ماذا سوف يحدث له فيما لو تم الاستغناء عن الفقرة الاخيرة التي تكلما عنها‎ 

الان هنالك سؤال يطرح وهو 

لماذا تم كتابة هذه الخطوة بالشكل التالي 


CODE(177) 
my $b = $tl-> Button( -text = > "Window item #$i", 
-foreground =>'red", 
-command => sub { print "Button pressed,$i\n"; }; 


لماذدا كتب بهذا الشكل؟؟ ولماذا لم يكتب بهدذه الصورة 


CODE(17S) 
my $b = $top-> Button( -text => "Window item #$i", 
-foreground =>'red', 
-command => sub { print "Button pressed,$i\n"; }); 
$b->pack; 


المقطع هذا هو من الناحية البرمجية هو صحيح ولكن من الناحية التنفيذية هو غير مقبول الان سوف نرى صورة 
البرنامج فيما لو كانت الفقرة اعلاه هي التي تم اعتمادها في البرنامج بدلا من تلك الاصاية 
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کے < 


text ltEem #Û Folder Humber 3 


Folder Humber Û text Item #4 
text lem #Î Folder Humber 4 


Folder Humber I 


text lem #2 
Folder Humber 


text lem #3 


FIGURE(72) 


نلاحظ في هذا البرنامج انه يبدو وکانه يحتوي على نافذتین ولکن کما ذکرنا انه لايوجد خطا برمجي ولکن هو خلال 
من الناحية الكمالية لذا كان لابد من جود الخطوة التي ذكرناها 
ان اهمية الخيار 
CODE(179)‏ 
-widget-> $b‏ 
ان هذا الخيار من خلاله نقوم باختيار النافذة التي نريد عرضها ولكن من مميزات هذا الخيار هو انه مرادف للخيار 
CODE(IEO0)‏ 


-Wiİndow 
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HLIst 
)7/٨×(لا هذه التقنية هي التقنية الثانية من تقنيات‎ 
وهي تعتبر الاساس المهم والاساسي في بر مجة ال(هع)//2)‎ 
کما سوف نری‎ 
)/1L i ٤(لا الان سوف نأخذ برنامج بسيط يوضح عمل‎ 
CODES) 
use TK; 
require Tk::HList; 
$top=MainWindow->new(title = > "Simple HList"); 
$a=$top-> HList(-> pack; 
MainLoop; 


هذا هو ابسط کود خاص لتکوین ال(۳41i8)‏ 
وان الناتج من تنفيذ هذا الكود كما في الصورة التالية 


Simple HLIS 


AIGCUREZS) 
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Adding text to the Hlist 


1-listDOX 
2-HlList 
3- [ext 
4-tagconfigure 
5-Scrolled 
6-scrollbar 
وغيرها من هذه التقنيات لو كنا نريد ان نقوم بادخال النص اليها كنا نقوم بذلك من خلال استخدام الامر‎ 
CODEIE2) 
insert 
كان هذا الامر هو الامر المسئول عن ادخال النص الى التقنيات السابقة اما عن هذه التقنية فاسلوب ادخال النص‎ 
يکون اسلوب مختلف وهو كما يلي في هذا الكود‎ 


O EE 


CODES) 


use TK; 
require Tk::HList; 
Ştop = MainWindow->new; 
Şa=$top-> HListO; 
foreach (qw/one two three four/){ 
$a->add($_, 

-tex) =>$_ 

J 
j 
$a-> pack; 
MainLoop; 


الان سوف نرى صورة البرنامج وهي كما يلي 


FICURE(74) 
نلاحظ انه في هذا البرنامج تم استعمال اسلوب جديد في ادخال النص وهو من استعمال الامر‎ 
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CODE1E4) 
add 


وهذه اول مرة تمر علينا هذه الخاصية وعلى كل الان سوف نشرح البلوك البرمجي الخاص بها 
CODES)‏ 
$a->add($_,‏ 
-tex() =>$_‏ 


الامر 
CODE(S)‏ 
add‏ 


هو كما ذکرنا الامر الذي يکون مسئول عن ادخال النص الى هده الأتقنية 
CODEN1E7)‏ 
و 8 


سبب وجود هذا السطر البرمجي هو انه يكون مسئول عن ادخال اول رمز او كلمة او حرف موجودة 

في عبارة التكرار الى ال(٤ءأ41)‏ 

ولك ان تجرب البرنامج الذي كتبناه الان بدون هذا الخيار عند التنفيذ سوف تحصل على خلل برمجي يخبرك بعدم 
CODES)‏ 
-tex) =>$_‏ 

فا غرف لمر نمر بكرن هرل هن تكن الرم ار الها ار اکر لے ارون الكلعات الو دن 

جملة التكرار الى البرنامج اذن الخيار الذي يسبق هذا يكون مسئول عن ادخال الكلمة او الحرف الاول الى ٠‏ 

البرنامج او الامر الثاني فهو يكون مسئول عن ادخال الباقي 
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Scrolling the HList 
في بداية شرحنا لتقنية ال(4115/)‎ 
(hierarchical lis)ةڑمذİ‎ رصتخn ذکرنا انا‎ 
اي القائمة المرتبة و الان حان الوقت لكي نطبق المعني الحرفي لهذه التقنية من خلال استعمال عدد من التقنيات‎ 
وتتم هده العملية كما يلي من خلال هذا الكود‎ 
CODE(S) 
use TK; 
require Tk::HList; 
Ştop = MainWindow->new; 
$a=$top->Scrolled(HList',-scrollbars = >se 
J; 
Şa->HListO; 
foreach(qw/ perl perl.coder perl.geek c c.coder c.geek python python.coder python.geek/){ 


$a->add($_, 
-text => 
J; 
1 
$a-> pack; 
MainLoop; 
الان نأتي الى ناتج تنفيذ البرنامج وهو كما في الصورة التالية‎ 
perl 
la i 
Jerl.qjeek 
Cc 
a 
.qjeek 
python 
FIGURE(7S) 
هذا هو ناتج تنفيذ البرنامج اما الان نأتي الى شرح الفقرات البرمجية المكونة للبرنامج‎ 
الفقرة الاولى‎ 
CODE(190) 


Şa=$top->Scrolled(HList',-scrollbars =>se 


3 
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هذه الفقرة سبق وان مرت علينا من قبل و هي انه من خلال هذه الفقرة نحدد موضع السكرول بارز في البرنامج‎ 


الفقرة الثانية 
TODE(191)‏ 
Şa->HList();‏ 


هذا الامر هو الامر الذي يكون مسئول عن تكوين المنصة الخاصة بال(ء41İ/)‏ 


الفقرة التالثة 
CODE(192)‏ 
foreach(qw/ perl perl.coder perl.geek c c.coder c.geek python python.coder python.geek/){‏ 
$a->add($_,‏ 
-text =>‏ 
J;‏ 
هذه الفقرة كما نلاحظ مكونة من مقطعين 


عبارة الفور مكونة من اسما ء اللغات ومن بعد اسماء اللغات يوجد ملحقات بنأء على على اسماء اللغات وملحقاتها 

سوية يتم تكوين الشجرة وحتى لو اضفت اكثر من لغة او كل يعنيلو اردت ان تكون الشجر الاولى تكون مكونة من 

3 فروع و الأخرة مكونة من فرعين هذا ايضا يجوز لكي تتوضح لديك الصورة عليك ان تعرف ان بناء الشجر 

يتم على اسم اللغة حيث هي التي تحدد اي لا يلعب الملحق دورا في عملية الترتيب هذه 

واما عن الخيارات التي تأتي مع الامر ال 

CODE193) 
add 
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Dir [ree 
هذه التقنية هي التقنية التي ذكرنا انها تقوم بعرض الملجدات التي لديك على الحاسبة على شكل شجرة واسلوب‎ 
عملها بسيط وهو كما يلي‎ 
CODE(194) 
use TK; 


use Tk::Dir Tree; 
my $top= MainWindow->new(title => '"Tree’); 
Ştop-> DirTree(Cdirectory => "/", 

-width =>30)->pack( -expand => 1); 


MainLoop; 
نلاحظ من هذا الكود ان اسلوب عمله هو بسيط وان الناتج التنفيذد هو كما يلي في الصورة التالية‎ 
home 
lib 
lostr+found 
media 
MISC 
mnt 
F/GCUREZG 
على الرغم من ان هذه التقنية اول مرة نتعرف عليها الا انها تبدو سهلة جدا‎ 
الفقرات المكونة لها هي ايضا بسيطة وهي کما يلي‎ 
الفقرة الاولى‎ 
TODE(195) 


Ştop-> DirTree(Cdirectory => "/",‏ 
-width =>30)->pack( -expand => 1);‏ 
هذه الفقرة من خلالها نحدد الملجد الذي نريد ان يتم استعراضه ونحن هنا في هذا البرنامج حددنا الجذر الرئيسي 
للنظام ولكن من الممكن ان تحدد غير مسار متلا ان تحدد 


/etc 
/usr 
الى اخره من المجلدات‎ 
ملاحظة من الممكن ان تقوم من خلال هذا البرنامج ان تقوم باستعراض الملفات المخفية في النظام بمجرد ان تقوم‎ 
بكتابة مسارها اي كما في هو الحالات العادية الاخرى‎ 
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"LICENSE 

M_SpAwWN is the author of the Perl Gul programming 
book made this book under the terms of the (SFPL) 
license (Safa Public Fr34ky License). 


you want to get developed in the Fr34ky life? So What the hell you waitin for 
check these fr34ky webz now they might help ya see 

DLIOGS, 

1- 

Www.linux-fr34k.CcOm 

( Linux security blog but it s so dangerous like TNT Blog Hush don t tell any one) 


2- 


www. binary-zone.com 
( Special blog of the GOdF4th3r of Arabic Linux world) 


3- 


WwwWww.snix.wordpress.CcOmM 
(the blog of the inspired designer) 


"W3 FORUMS 
1- 
www.programming-fr34ks.net 


(the Aerie of fr34ks check us there and be with us don t be late) 


28 
www.securitygurus.net 


(the real way of security our home we all miss you ) 
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here is some useful perl sites 
1- 

www. perl.org 

(official perl site) 


www.perl.com 
(Rich contents of perl infromation) 
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www.cpan.org 
(Every thing u need for perl modules and the tuts related to these modules) 


for more site visit 


www. perl.org 
and this site well give you qulte enough sites 
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"NO73(1) 

Always remember this tip P3rl Is not the strongest programming language but is 
one of the best programming language at all becoz it s so easy and flexible lang 
and this lang have an Extraodinary capabilities and very Advanced F34tures 
always remeber P3rl is made for Wisdom seekers 


"N073(2) 
اذا احببت لغة البيرل بشكل عام واحببت هذا الموضوع اي برمجة الواجهات الرسومية و اردت ان تتعمق اكثر في‎ 
هذا المجال البرمجي من الممكن ان تنتظر الملحق الخاص بها الكتاب الي راح يتناول البرمجة المتقدمة للواجهات‎ 
الرسومية واذا احببت ان تقرأً كتاب اخر اي كتاب انكليزي هنا احب ان اعطيك نصحية هي انه اقرا ما تحب‎ 
وطبق ما تحب ولكن ابق بعيدا عن كتاب ال‎ 
Advanced perl Programmming 
لانه سيضرك اكثر من مما سوف ينفعك هذا من وجهة نظري البسيطة لو كانت تهمك‎ 


"N073(3) 


to the ppl i forgot you were tin my mind for some reasons you know it and you 
don t deserve any thanks for any thing you should know that very well 


"GRIT 

Now After my book is finished i want to say thanks to my all friends who 
encourage me and always give the help,support,and hope thanks for benig such 
a good ppl 

book wallpaper is designed by MR.(SNIX) 

(StOrm_MaN,StrikerX,Snix(N H 2 O0 0O 4)) 
M4ILm3:-Mahmoud_najafy@hotmail.com 


